Select Code to Download

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

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

my @now = localtime;