use warnings;
use strict;

use GPSD::Parse;

my $gps = GPSD::Parse->new;

$gps->poll;

print "poll time: " . $gps->time .
"\nlattitude: " . $gps->tpv('lat') .
"\nlongitude: " . $gps->tpv('lon') .
"\ndirection: " . $gps->tpv('track') .
"\naltitude:  " . $gps->tpv('alt') . "\n";