use strict;
use warnings;

use Geo::Coordinates::DecimalDegrees;

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

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

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

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

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

__END__
c:\test>junk5
23:34:06 => 23.56833
23.56833 => 23:34:06