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

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

##</code><code>##

my_script_name.log

##</code><code>##

.log