use strict;
use warnings;

use Geo::Coordinates::DecimalDegrees;

my ( $degrees, $minutes, $seconds ) = ( 23, 34, 6 );

my $decimal_degrees = dms2decimal( $degrees, $minutes, $seconds );

printf "%d:%d:%d => %.5f\n", $degrees, $minutes, $seconds, $decimal_degrees;

( $degrees, $minutes, $seconds ) = decimal2dms( $decimal_degrees );

printf "%.5f => %d:%d:%d\n", $decimal_degrees, $degrees, $minutes, $seconds;

##</code><code>##

23:34:6 => 23.56833
23.56833 => 23:34:5