my $HOURS_FROM_GMT = 7;
my $SECONDS_PER_HOUR = 3600;

print scalar gmtime(time - $HOURS_FROM_GMT * $SECONDS_PER_HOUR);
[download]

-- Randal L. Schwartz, Perl hacker