#!/usr/local/bin/perl -w
 use strict;
 use Geo::Gpx;
 use YAML qw( Dump );

 my( $file ) = @ARGV;
 die "usage: $0 file" if !defined $file;

 open my $fh, "<$file" or die $!;
 my $gpx = Geo::Gpx->new( input => $fh );

 print Dump $gpx->tracks->[ 0 ]->
    { segments }->[ 0 ]->{ points };