use LWP::UserAgent;
 
my $pid = fork();
my $resp;
for (1..3) {
	if ($pid = fork()) { next; }
   	if (defined $pid) { 
   		$resp .= GET(); 
   		print "=" x155 ."\n$resp\n" ."=" x155 ."\n";
   		exit; }
   	else { die "Fork failed\n"; }
} 
sub GET {
	my $ua = LWP::UserAgent->new;
   	$ua->agent("Perl 5.8.8");
   	my $req = HTTP::Request->new("GET", "http://www.google.com/");
   	my $res = $ua->request($req);
   	if ($res->is_success) { print "OK\n"; return $res->content; }
   	else { die "HTTP::Request error"; }
}