use strict;
use warnings;

print "$$\n\n";

sleep( 100 );


##</code><code>##


ps -aef | grep "perl" 


##</code><code>##


UserName    PID  ...  ... TIME Terminal   TIME <Your code invocation :perl whatever.pl>