[Subject Prev][Subject Next][Thread Prev][Thread Next][Subject Index][Thread Index]

Re: Yet another Coutdown



#!/usr/bin/perl -wT

my $now = time();  
my ($sec, $min, $hour, $day, $mon) = (localtime(1000000000-$now))[0..4];
print "Today : " . scalar localtime($now) . " is $mon months " .
($day-1) . " days $hour hours $min minutes $sec seconds away from
rollover\n";