defined(my $pid = fork) or die "Can't fork: $!";
if ($pid)
{
	print "waiting";
	waitpid($pid,0);
	print "done waiting";
}
else
{
	my $result= new CGI;
	print $result->redirect("redirection");
}