use FindBin qw($Script);
print $Script, "\n";

##</code><code>##

use File::Basename;
print basename(__FILE__), "\n";