(my $logname = $0) =~ /\.pl$/.log/;