Select Code to Download

#!/usr/local/bin/perl -w
# my_script_name.pl
...

my $log_file = (split /\./, $0)[0] . '.log';
print $log_file, "\n";

my_script_name.log

.log