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\", " }'
Хотя некоторые из полученных доменных имен действуют получше хорошей травы.
