use warnings;
use strict;

use GPSD::Parse;

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

$gps->poll;

my $sats = $gps->satellites;

for my $sat (keys %$sats){
    if (! $gps->satellites($sat, 'used')){
        print "$sat: unused\n";
    }
    else {
        print "$sat used:\n";
        for (keys %{ $sats->{$sat} }){
            print "\t$_: $sats->{$sat}{$_}\n";
        }
    }
}

##</code><code>##

17: used
	az: 67
	el: 74
	used: 1
	ss: 15
3: unused
11: unused
19: unused
22: unused
24: unused
28: used
	az: 99
	ss: 14
	el: 36
	used: 1
30: unused
13: used
	el: 6
	used: 1
	ss: 13
	az: 220
12: unused
6: used
	az: 165
	used: 1
	el: 30
	ss: 23
15: unused
1: unused