my ($SEC,$MIN,$HOUR, $DAY, $MON, $YEAR) = ...;
...
my $LOG = ...