use strict;
use XML::Simple;

my $xml = q(<?xml version="1.0" encoding="Windows-1256"?>
<stuff>nope</stuff>
);

my $ref = eval { XMLin( $xml ) };

print $@ if($@);

print "About to exit\n";

#exit(0);