($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =  gmtime(time);
my $gm_time = timegm($sec,$min,$hour,$mday,$mon,$year,$wday,$yday);

##</code><code>##

my $gm_time = time;

##</code><code>##

use POSIX 'strftime';
print strftime '%Y-%m-%d %H:%M:%S', gmtime time - (5 * 3600);