#!/usr/bin/perl

use LWP::Simple qw(get);

sub getweb {

for ($i=0;$i<200;$i++) {
 if(!defined($pid = fork)) {
    return;
  }

  if($pid) {
    #parent

    $SIG{CHLD} = sub { wait; };
    return;

  } else {
        get("http://www.blahblah.com/blah.php3?xxx");
        return;
        }
  }
}

getweb;