open my $in_fh, '<', $file 
    or die "Could not open $file : $!"; 
  my $contents_of_file = do { local $/;<$in_fh> };
  close $in_fh;
  
  $tidy->parse( $file, $contents_of_file )
      or warn "Error parsing $file :$!";