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