use strict;
my ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek
, $dayOfYear, $daylightSavings) = localtime();