Select Code to Download

if ( my $pid = fork() ) {
    # parent
...
    die "Can't fork: $!" if ( ! defined $pid );
    # child
}