That's the tricky opart about Perl, there are lots of predefined variables. $$ is the process id. Try this:

use English;
print $PPROCESS_ID, "\n";
print $PID, "\n";
print $$, "\n";
[download]

Those three prints yield the same result.