$ perl -e'print $$, $/; exec "perl", "-e", "print $$;"'
20540
20540$