#!/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";