#!/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
}