use strict;
use warnings;

my $localtime = scalar localtime;
my $tmp = ".txt";
my $logfile = $localtime.$tmp;

$logfile =~ tr/ /-/;

open( OUTFILE, ">$logfile" ) or die "couldn't open $logfile\:$!\n";
print OUTFILE "Hello";
close(OUTFILE)