in reply to Convert time to todays time

The off by one could be daylight saving related. 
@t = localtime(time);
print "Daylight saving active" if $t[8] eq 1;

[download]
Gnork

cat /dev/world | perl -e "(/(^.*? \?) 42\!/) && (print $1))"
errors->(c)

In Section Seekers of Perl Wisdom