#!/usr/bin/perl

use strict;
use warnings;

use Time::Local;
use POSIX 'strftime';

my $req_time = '2006-05-17 12:00:00';
print $req_time, "\n";
my ($date,$time) = split(/ /, $req_time);
my ($year,$month,$day) = split(/-/, $date);
my ($hour,$min,$sec) = split(/:/, $time);
my $req_date = timelocal($sec, $min, $hour, $day, --$month, $year);
my $rtime = $req_date + 1*60*60;
my $date1 = strftime '%Y-%m-%d %H:%M:%S', localtime $rtime;
print $date1, "\n";

##</code><code>##

2006-05-17 12:00:00
2006-05-17 13:00:00