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