use English qw( -no_match_vars );
my $result;
eval {
  $result = XMLin($som);
}

if ($EVAL_ERROR) {
  die "Invalid XML retrieved.  The error was " . $EVAL_ERROR . "\n";
}