スクリプトを実行している perl の実行パスを調べる変数

print $0;

だと, スクリプト名になってしまうので

print $^X; # $ + 制御文字 0x18

とします。
 
例:
foo.pl

#!/usr/bin/perl
 
print “script name: $0\n”;
print “perl: $^X\n”;

実行コマンド:

./foo.pl

結果:

script name: ./foo.pl
perl: /usr/bin/perl