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

my $arg0 = $0;
print "Debug>  Before split -- arg0 = '$arg0'\n";

my @words = split /\./, $0;
my $count = @words;
print "Debug>  After split -- $count words:  [@words]\n";

my $base = $words[0];
print "Debug>  First word (word[0]) = '$base'\n";

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