print $fh join("\n", @dirs) . "\n";