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

#see if open worked
if ($@) {
    print "XML Read ERROR";
} 
else { ... }