SYNOPSIS

 my ($type, $data) = landsat_mtl_from_file $filename;

 # study the result.
 use Data::Dumper;
 warn Dumper $data;

 print $data->{METADATA_FILE_INFO}{ORIGIN}, "\n";

 my $data = landsat_meta_from_filename $filename;
 print $data->{WRS_PATH};

DESCRIPTION

Process the content of a MTL file, as specified by document level1_dfcb_rev5_401.pdf. See also http://landsathandbook.gsfc.nasa.gov/handbook/handbook_toc.html