gistfile1

#!/usr/bin/perl

use strict;
use warnings;

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

my $xml1 = '<root xmlns="abc">test</root>';
my $xml2 = '<my:root xmlns:my="abc">test</my:root>';

my $builder = XML::Toolkit::Builder->new({
    namespace_map => { 'abc' => 'ABC' },
});

$builder->parse_string($xml1);
my $code = $builder->render();
eval $code;

my $loader = XML::Toolkit::Loader->new({
    namespace_map => { 'abc' => 'ABC' },
});
$loader->parse_string($xml2);
print Dumper($loader->root_object);