実行しているPerlのプロセスIDを知るには

my $pid=$$;

でよい。