#!/usr/local/bin/perl -w

print "Checking the reverse zones now\n\n";
print "wickedmind.com\n";
$setup = `nslookup wickedmind.com|grep "Address"|sed 2,2p `;
print $setup;
print "\n";
print "wicked.com\n";
$setup1 = `nslookup wicked.com|grep "Address"|sed 2,2p `;
print $setup1;
print "\n";
print "thematrix.com\n";
$setup2 = `nslookup thematrix.com|grep "Address"|sed 2,2p `;
print $setup2;
print "\n";
print "morpheus.wickedmind.com\n";
$setup3 = `nslookup morpheus.wickedmind.com|grep "Address"|sed 2,2p `;
print $setup3;
print "\n";
print "trinity.wickedmind.com\n";
$setup4 = `nslookup trinity.wickedmind.com|grep "Address"|sed 2,2p `;
print $setup4;
print "\n";
print "developer.com\n";
$setup5 = `nslookup developer.com|grep "Address"|sed 2,2p `;
print $setup5;
print "\n";
print "cypher.wickedmind.com\n";
$setup6 = `nslookup cypher.wickedmind.com|grep "Address"|sed 2,2p `;
print $setup6;
print "\n";
print "virtual.wickedmind.com\n";
$setup7 = `nslookup virtual.wickedmind.com|grep "Address"|sed 2,2p `;
print $setup7;
print "\n";
print "xmen.com\n";
$setup8 = `nslookup xmen.com|grep "Address"|sed 2,2p `;
print $setup8;
print "\n";