use strict;
use warnings;

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