Select Code to Download

$url = "http://66.216.39.12/inv";
$url =~ m!https?://((?:\d{1,3}\.){3}\d{1,3})!i;
$ip = $1;

use Net::DNS;

...
} else {
    print "query failed: ", $res->errorstring, "\n";
}