#!/usr/bin/perl -w
#############################################################
#                                                           #
#     Pipe demonstration program for sending to a pipe      #
#                                                           #
#############################################################

$c = 128934;
while (1) {
  $a = int (rand(3) + 2);
  $c++;
  open (PIPE, "+<webctr") or die $!;
    print PIPE "cn $c\n";
  close PIPE;
  sleep $a;
}