in reply to Script Directory vs. Directory Script was Called From

See perldoc perldata for __FILE__ and File::Basename for dirname():
use File::Basename;

my $script = __FILE__;
my $dir = dirname($script);

[download]

In Section Seekers of Perl Wisdom