sub loggit { my @gmt = gmtime; my $date = sprintf "%04d%02d%02d", $gmt[5]+1900, $gmt[4]+1, $gmt[3]; my $file = "$date.log"; open my $log, ">>", $file or die $!; print $log, @_; close $log; }