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