in reply to question on Time module
my $time = time - 60*60; [download]
May produce odd (but correct) results near a DST time change.