http://qs321.pair.com?node_id=395622


⭐ in reply to How do I get the full path to the script executing?

or even Cwd 
use stict;
use Cwd qw(abs_path);

my $path = abs_path($0);

[download]

In Section Seekers of Perl Wisdom