my @all_tlds = Net::Domain::TLD::tlds;
for my $tld ( sort @all_tlds ) {