in reply to Windows - dirname(__FILE__)

Are you looking for FindBin? 
use FindBin;
print "Script running from ", $FindBin::Bin, "\n";

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom