in reply to Difference btw. abs_path and $0?

You could also use File::Basename 
use Cwd qw(abs_path);
use File::Basename;

my $dir = dirname(abs_path($0));
print "$dir\n";

[download]

In Section Seekers of Perl Wisdom