my $file = 'file.rss';
my $p = XML::RSS->new;

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

if ($@) {
  die "Bad XML document!!\n";
} else {
  print "Good XML!\n";
}