use FindBin;
print "Script running from ", $FindBin::Bin, "\n";