use warnings;
use strict;
use feature 'say';
use Data::Dumper;
use GPSD::Parse;
my $want = $ARGV[0];
my $gps = GPSD::Parse->new;
$gps->on;
my $raw = $gps->poll(return => $want);
# print Dumper $gps->satellites;
# print Dumper $gps->sky;
my $sat = $gps->satellites(16);
#say $gps->satellites(16, 'el');
#say $gps->tpv('speed');
#say $gps->time;
#say $gps->device;
print Dumper $raw;
$gps->off;