sub fork_and_do_stuff { my $pid = fork if( $pid == 0 ) { eval{ do_stuff() }; exit 1; } }