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

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

$logfile =~ tr/ /-/;

open( OUTFILE, ">$logfile" );
print OUTFILE "Hello";
close(OUTFILE);