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

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

 my $vehicles =
   from_json $oa->http_get(
      "https://api.automatic.com/vehicle" );

 for my $car (
     @{ $vehicles->{ results } } ) {

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

   for my $trip (
       @{ $trips->{ results } } ) {
     printf "%20s: %s\n",
       "$car->{ make }-$car->{ model }-" .
       "$car->{ year }",
       $trip->{ end_address }->{ name };
     last;
   }
 }