print "$0"

常識感はありますが、これは、ファイル名が出力されます。

例えば、test.pm内で print "$0"; と書くと、

perl test.pm

test.pm

と出力されます。

参考まで