Select Code to Download

use Net::ParseWhois;
use Data::Dumper;
...
print "Tag: ", $w->tag, "\n";    
print "Address:\n", map { "    $_\n"     } $w->address;
print "Country: ", $w->country, "\n";

Domain: n/a
Name: n/a
...
Address:
    n/a
Country: n/a