use HTML::Tidy;

my $call_dir = "/Users/joe/desktop/Test8";
#my $tidy = HTML::Tidy->new( {config_file => 'path/to/config'} );
my @files = glob "$calls_dir/*.hmtl";
printf "Got %d files\n", scalar @files;

for my $file (@files) {
open my $in_fh, '<', $file;
$tidy->ignore( type => TIDY_WARNING, type => TIDY_INFO );
$tidy->parse( $file, $contents_of_file );
 
for my $message ( $tidy->messages ) {
    print $message->as_string;
}
 
}