c:\@Work\Perl\monks\thechartist>perl -wMstrict -le
"sub dms_2_secs {
   my ($degs, $mins, $secs) = @_;
   ;;
   return $degs * 3600 + $mins * 60 + $secs;
   }
 ;;
 sub secs_2_dms {
   use integer;
   ;;
   my ($secs) = @_;
   ;;
   my $degs = $secs / 3600;   $secs %= 3600;
   my $mins = $secs /   60;   $secs %=   60;
   ;;
   return $degs, $mins, $secs;
   }
 ;;
 my $klaf_arc_secs = dms_2_secs(83, 18, 21) - dms_2_secs(39, 41, 28);
 my @klaf_dms      = secs_2_dms($klaf_arc_secs);
 print qq{(@klaf_dms)};
"
(43 36 53)