use Time::Local;

my $hour= 2;
my $test = timelocal(0,0,$hour,1,3,2012);
my @test2 = localtime($test);
print "hour $hour vs $test2[2]\n";


##</code><code>##

hour 2 vs 2

##</code><code>##

use Time::Local;

my $hour= 2;
my $test = timelocal(0,0,$hour,1,3,2012);
my @test2 = localtime($test);
print "hour $hour vs $test2[2]\n";


##</code><code>##

hour 2 vs 3

##</code><code>##

use Time::Local;

my $hour= 2;
my $test = timelocal(0,0,$hour,1,3,2011);
my @test2 = localtime($test);
print "hour $hour vs $test2[2]\n";


##</code><code>##

hour 2 vs 2