contrib/tor-stress

   1 #!/usr/bin/perl
   2
   3 #require 'sys/syscall.ph';
   4 $|=1;
   5
   6 $total = 1;
   7 $target = "http://www.cnn.com/";
   8
   9 for($i=0;$i<$total;$i++) {
  10   print "Starting client $i\n";
  11   $pid = fork();
  12   if(!$pid) {
  13     open(FD,"wget -q -O - $target|");
  14     $c = 0;
  15     while(<FD>) {
  16       $c += length($_);
  17     }
  18 #    $TIMEVAL_T = "LL";
  19 #    $now = pack($TIMEVAL_T, ());
  20 #    syscall(&SYS_gettimeofday, $now, 0) != -1 or die "gettimeofday: $!";
  21 #    @now = unpack($TIMEVAL_T, $now);
  22     print "Client $i exiting ($c chars).\n";
  23     exit(0);
  24   }
  25 # sleep(1);
  26 }
  27