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'