#!/usr/local/bin/perl -w
 use strict;
 use OAuth::Cmdline::Automatic;
 use JSON qw( from_json to_json );
 use YAML qw( Dump );
 use Algorithm::GooglePolylineEncoding;

 my $oa = OAuth::Cmdline::Automatic->new();
 $oa->raise_error( 1 );

 my $trips = from_json $oa->http_get(
   "https://api.automatic.com/trip", [] );

 my @locs = Algorithm::GooglePolylineEncoding::decode_polyline(
     $trips->{ results }->[ 0 ]->{ path } );

 print Dump ( \@locs );