I have got sample from Browser but it not statify to process....

Code:
#!/usr/bin/perl
use strict;
use warnings;
use XML::Validate;
my $validator = new XML::Validate(Type => 'LibXML');
  
if ($validator->validate('sample.xml')) {
    print "Document is valid\n";

}
else
{
  print "Document is invalid\n";
  my $message = $validator->last_error()->{message};
...