use 'eval' function in perl

use XML::LibXML;
my $parser = XML::LibXML->new();

my $tree;
eval {
    $tree = $parser->parse_file($file) # parses the file contents into the new libXML object.
};
warn("Error encountered: $@") if $@;