gistfile1

#!/usr/bin/perl

use strict;
use warnings;

use XML::Toolkit::Builder;
use XML::Toolkit::Loader;
use Data::Dumper qw(Dumper);

my $filename = shift;
die("Please specify an XML file.\n") unless -r $filename;

my $namespace_map = {
    'http://www.imsglobal.org/xsd/imsmd_v1p2' => 'IMS::LOM',
    'http://www.imsglobal.org/xsd/imscp_v1p1' => 'IMS::CP',
};

my $builder = XML::Toolkit::Builder->new(namespace_map => $namespace_map);
$builder->parse_uri($filename);
my $code = $builder->render();
eval $code;

my $loader = XML::Toolkit::Loader->new(namespace_map => $namespace_map);
$loader->parse_uri( $filename );
print Dumper( $loader->root_object );