#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $runs   = 100;
my $time   = time();
my $delay  = 20;
my $x      = 1;
my $hammer = 0;  # set this to peak your network out!

while ($runs) {
    my $pid = fork;
    # Parent
    if ($pid) { 
      $runs--; 
    }
    elsif ($pid == 0) {
        sleep 1 while $hammer and time() < $time + $delay + rand($x);
        my $output = get('http://www.mysitegoeshere.org');
      exit;
    }
    else {
        die "Fork failed $!\n";
    }
}