Read perldoc perlipc and perldoc perlvar harder.

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