$tidy->clean( $file); does not clean the file it returns a clean file. You need to do

open OUT,'>','output.html' or die "$!";
print OUT $tidy->clean( $file);
[download]

poj