use LWP::Simple;

my @pid;
for(my $i = 0; $i < 720; $i++){
  print "$i\n";
  $pid[$i] = fork();
  if (not defined $pid[$i]) {
    print "resources not avilable.\n";
  } 
  elsif($pid[$i] == 0) {
    get_data_and_go();
    exit(0);
  }
  else{
    sleep 2;
  };
};
sub get_data_and_go {
  does some webpage stuff and exits
  exit(0);
};