my ($sec2, $min2, $hour2) = localtime(time); print "Whole hours remaining until midnight: (24-$hour2)=";print 24-$hour2;print" hours\n"; print "Minutes remaining until next hour: (60-$min2)=";print 60-$min2;print" minutes\n"; if ($hour2>2) { $newdayhours = 24-$hour2+2; $min2=60-$min2; print "There are $newdayhours hour(s) and $min2 minute(s) until the new day."; } else { print "There are ";print 2-$hour2;print" hour(s) and ";print 60-$min2;print " minute(s) until the new day."; }