print $fh $_,"\n" for @dirs;