use LWP::UserAgent;

my $pid = fork();
for (1..3) {
  if ($pid = fork()) { next; }
  if (defined $pid) { GET(); exit; }
  else { die "Fork failed\n"; }
}

sub GET {
  my $ua = LWP::UserAgent->new;
  $ua->agent("Perl 5.6");
  my $req = HTTP::Request->new("GET", "http://perl.com/");
  my $res = $ua->request($req);
  if ($res->is_success) { print "OK\n"; return $res->content; }
  else { die "HTTP::Request error"; }
}