my @all_tlds = Net::Domain::TLD::tlds;
for my $tld ( sort @all_tlds ) {
##</code><code>##

.kr 222.231.8.226
.mp 65.99.230.31
.ph 203.119.6.168
.st 94.254.0.40
.sy 91.144.20.76
.tk 71.6.218.116
.tk 209.126.220.134
.tk 216.75.44.103
.tk 71.6.218.118
.tk 71.6.218.113
.tk 66.240.232.110
.tk 216.75.55.110
.to 208.73.210.178
.ws 64.70.19.33

##</code><code>##

222.231.8.226: ERROR:"550 BOGUS MX DETECTED!"
65.99.230.31: ERROR:"550 BOGUS MX DETECTED!"
203.119.6.168: ERROR:"550 BOGUS MX DETECTED!"
94.254.0.40: ERROR:"550 BOGUS MX DETECTED!"
91.144.20.76: ERROR:"550 BOGUS MX DETECTED!"
71.6.218.116: ERROR:"550 BOGUS MX DETECTED!"
209.126.220.134: ERROR:"550 BOGUS MX DETECTED!"
216.75.44.103: ERROR:"550 BOGUS MX DETECTED!"
71.6.218.118: ERROR:"550 BOGUS MX DETECTED!"
71.6.218.113: ERROR:"550 BOGUS MX DETECTED!"
208.73.210.178: ERROR:"550 BOGUS MX DETECTED!"
64.70.19.33: ERROR:"550 BOGUS MX DETECTED!"