unless($tmp_dir eq $dir){ print OUTPUTFILE "\n", $tmp_dir ,"\n"; $dir = $tmp_dir; }