Select Code to Download

Average elevation 
  Track 1 = 72
  Track 2 = 61

use Geo::Gpx;
open $fh, "W20120129101405.gpx" ; 
my $gpx = Geo::Gpx->new( input => $fh );
my $tracks = $gpx->tracks();
print  Dumper ($tracks);

$VAR1 =  = [
        {
...
            ]
        }
    ];