$ perl -wle 'fork; warn $$'
1787 at -e line 1.
1786 at -e line 1.
$