Select Code to Download

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

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