sub start_child() { my $pid = fork(); if(!defined $pid or $pid < 0) { # ... Fork error die(...); } if($pid > 0) { # In parent return; } # In child process exec("child script", args); }