use strict;
use warnings;

use feature 'say';

use HTML::Valid;
use Path::Tiny;

my $file = 'test.html';
my $content = path($file)->slurp;

my $validate = HTML::Valid->new();
my ($output,$errors) = $validate->run($content);

say "Output:\n$output\n";
say "Errors:\n$errors";