-sub pretty_time {
- my $t = shift;
-
- return 'Midnight' if $t == 0 || $t == 1440;
- return 'Noon' if $t == 720;
-
- my $h = int( $t / 60 );
- my $m = $t % 60;
-
- my $ap = 'AM';
- if ( $h == 0 || $h == 24 ) { $h = 12; }
- elsif ( $h == 12 ) { $ap = 'PM'; }
- elsif ( $h > 12 ) { $ap = 'PM'; $h -= 12; }
-
- sprintf('%02d:%02d'." $ap", $h, $m);
-
-}
-