($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =  gmtime(time);
my $gm_time = timegm($sec,$min,$hour,$mday,$mon,$year,$wday,$yday);
my $server_time = $gm_time -  (5*3600);
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $time) = gmtime($server_time);
printf("%4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d", $year + 1900, $mon + 1, $mday, $hour, $min, $sec);