Select Code to Download

use strict;
use warnings;
...
print "script = >>>$0<<<\n";
my $log_file = (split /\./, $0)[0] . '.log';
print $log_file, "\n";