END {
    my $pid;
    if ($pid = fork){
        exit;
    }elsif (defined $pid){
        close STDOUT; 
        sleep 5;
        unlink ($tempfile);
    }else{
        # if fork fails:
        sleep 5;
        unlink ($tempfile);
    }
}