C:\>perl -wle "print $$; $c = fork; print $c; exit if $c; print $$; sleep 3"
116
-148
0
-148

C:\>