my ($day, $month, $daynum, $time, $zone, $year) = split /\s+/, `date`;

##</code><code>##

my ($day, $month, $daynum, $time, $zone, $year) = split /\s+/, localtime;

##</code><code>##

my @now = localtime;