Select Code to Download

perl -le 'print "parent pid $$"; if( my $p = fork ) {print "parent got
+ child $p"; exit; } else { print "child pid $$"; exit }'