Select Code to Download

use strict;
use warnings;
...
print "1) original: $0\n";
print "2) short   : $me\n";
print "3) long    : $abs_me\n";

rp@linux:local: perl ../me.pl
1) original: ../me.pl
2) short   : me.pl
3) long    : /home/rp/me.pl