XML::Parser

use XML::Parser;
my $xmlfile = shift @ARGV;              # the file to parse

# initialize parser object and parse the string
my $parser = XML::Parser->new(ErrorContext => 2);
eval { $parser->parsefile($xmlfile);};

# report any error that stopped parsing, or announce success
if($@) {
    $@ =~ s/at((?:(?!\bat\b)).*?)$//i;               # remove module line number
    print STDERR "\nERROR in '$xmlfile':\n$@\n";
} else {
    print STDERR "'$xmlfile' is well-formed\n";
}