Select Code to Download

unless(defined(my $pid = fork)) {
  die "Could not fork: $!";  #fork failed
} elsif($pid) {
...
} else {
  print "Yay!\n" while 1;    #child
}