#!/usr/bin/perl -w
###########################################
# dist - Calculate total tracker distance
# Mike Schilli, 2006 (m@perlmeister.com)
###########################################
use strict;
use YAML qw(LoadFile);
use Geo::Distance;

my $trkpts = LoadFile("tracks.yml");
my $geo    = Geo::Distance->new();

my $total = 0;
my $last_pt;

for my $trkpt (@$trkpts) {
  if($last_pt) {
      my $k = $geo->distance("kilometer", 
          $last_pt->{lon}, $last_pt->{lat},
          $trkpt->{lon},   $trkpt->{lat});
     
      $total += $k;
  }
  $last_pt = $trkpt;
}

printf "Total: %.2fkm\n", $total;