Select Code to Download

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

my $log_file = $base . '.log';
print "Debug>  Full logfile name = '$log_file'\n";