my $result= new CGI;
print $result->redirect("http://www.example.com");
close STDOUT;
my $pid = fork;
exit if $pid;
die "fork: $!" unless defined $pid;