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