c:\@Work\Perl\monks\thechartist>perl -wMstrict -le "use TrigCalc qw(reduce); ;; my @dms = reduce(-1, 59, 0); print qq{(@dms)}; " (0 -1 0)