#!/usr/bin/perl -Tw

use strict;

print "Today: " . hours_in_day (time) . "hours.\n";
print "Sun: " . hours_in_day (time-170000) . "hours.\n";

sub hours_in_day {
    my $now = 60*60*int( shift()/60/60 );   # Start of this hour
    my $hour = ( localtime($now) )[2];
    $now -= $hour*60*60;                    # Offset from start of this day
    $hour = ( localtime($now) )[2];
    $hour += 24 unless int($hour/12);
    return $hour;
}