use XML::Parser;

my $p = XML::Parser->new;
my $file = 'data.xml';

eval { $p->parsefile($file) };

if ($@) {
  print 'XML is not well formed';
} else {
  print 'XML is well formed';
}