my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $shour = ($hour > 11 ? $hour - 12 : $hour);
$shour = 12 if ! $shour; # if 0 should be 12

##</code><code>##

my $hour = int (time / 3600) % 12;
$hour = 12 if ! $hour; # if 0 should be 12