Сгенерировать список доменных имен

На случай если куда-то их хочется записать, например, для тестирования чего-то

grep -v "'" /usr/share/dict/words | sort -R | head -n 200 | perl -e '@tlds=qw/com net org ru ua gov edu/; while ($dom=<STDIN>) { $tld = $tlds[rand(7)]; chomp $dom ; print lc "\"$dom.$tld\", " }'

Хотя некоторые из полученных доменных имен действуют получше хорошей травы.