xml-parse

#!/usr/bin/perl -w

use XML::Parser;
use strict;

if(!@ARGV) {
        print STDERR "Give me a file to parse.\n";
        exit 1;
}

my $xml_file = shift @ARGV;
my $parser = XML::Parser->new(ErrorContext=>2);

eval { $parser->parsefile($xml_file); };

if($@) {
        $@ =~ s/at \/.*?$//s;
        print STDERR "\nError in $xml_file:\n$@\n";
        exit 1;
} else {
        print "$xml_file is well formed\n";
}

exit 0;