Select Code to Download

defined(my $pid = fork) or die "Can't fork: $!";
if ($pid)
...
    my $result= new CGI;
    print $result->redirect("redirection");
}

open STDIN, "</dev/null";
open STDOUT, ">/dev/null";