perl -MJSON::XS -e 'RE:while(){$_=`gpspipe -n 5 -w|grep TPV`;last if$_;sleep 1}eval{$_=decode_json$_};if($@){sleep 1;goto RE};print`timezonefinder $_->{lon} $_->{lat}`'