for my $file ( ... )
{
    eval
    {
        my $parser = XML::Smart->new( ... );
        ... # Code that may die
        1;
    }
    or warn "Something appropriate: $@";
}
[download]