use FindBin ();  # get actual path of this script
print "Path of script is: $FindBin::Bin\n"; # no namespace pollution