#!/usr/bin/perl use Net::GPSD3; my $g = Net::GPSD3->new or die $!; $g->addHandler(\&tpv); $g->watch; sub tpv{ $t = shift; return unless $t->class eq 'TPV'; print join ' ', $t->timestamp, $t->lat, $t->lon, $t->alt; exit } #### perl -MNet::GPSD3 -le '$g=Net::GPSD3->new;$g->addHandler(\&tpv);sub tpv{$t=shift;return unless$t->class eq"TPV";print join" ",$t->timestamp,$t->lat,$t->lon,$t->alt;exit}$g->watch'