use FindBin '$Bin'; print "The script is located in $Bin.\n";