##
#!/exlibris/metalib/m4_b/product/bin/perl
use strict;
use XML::Simple;
my $source_code =
"
Joe
programmer
";
my $xs = new XML::Simple();
my $hash;
##This should return an error!!
eval {$hash = $xs->XMLin($source_code)};
if ($@){
print "$@";
exit(0);
}