Select Code to Download

if (!defined(my $pid = fork)) {
    print "Oh no\n";
...
} else {
    print "in parent\n";
}