Select Code to Download

my ( $h, $m, $s ) = do { use integer; ( ($tdelta / (60 * 60)) % 24, ($
+tdelta / 60) % 60, $tdelta % 60 ) };