my (@files, @rippers);
@files = Filecontrol::get_files($dir);

foreach my $file (@files) {
	`tidy -asxml -m  $file`;
}