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