XML::Simple, how to catch error: not well-formed?

Hi list,

Is it possible to catch XML error when parsing XML files using XML::Smple?

my $xml = XMLin($file);
next if $xml->error();

something like that.

I want to catch any error if the XML file is not a valid XML file,
rather than stop my script at :

not well-formed (invalid token) at line 1, column 269, byte 269 at
/usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi/XML/Parser.pm
line 185