Select Code to Download

 open my $in_fh, '<', $file 
    or die "Could not open $file : $!"; 
...
  
  $tidy->parse( $file, $contents_of_file )
      or warn "Error parsing $file :$!";