#!/exlibris/metalib/m4_b/product/bin/perl
use strict;
use XML::Simple;

my $source_code =
"<person>
  <person:name>Joe</person:name>
  <person:job>programmer</person:job>
</person>";

my $xs = new XML::Simple();
my $hash;
##This should return an error!!
eval {$hash = $xs->XMLin($source_code)};
if ($@){
    print "$@";
    exit(0);
}