Unnamed

if (/^.*!.* .* (.*) :!trace (.*)/) {
      		my $w = Net::Whois::ARIN->new(
        	      host    => 'whois.arin.net',
        	      port    => 43,
        	      timeout => 30,);
      		my $result = $w->query($2);
      		my @output = $w->network($2);
      		foreach my $net (@output) {
			print $socket "privmsg $1 :Range: $net->NetRange\n";
        		print $socket "privmsg $1 :Owner: $net->OrgName\n";
			print $socket "privmsg $1 :Owner ID: $net->OrgID\n";
			print $socket "privmsg $1 :Address: $net->Address\n";
			print $socket "privmsg $1 :City: $net->City\n";
			print $socket "privmsg $1 :State/Province: $net->StateProv\n";
			print $socket "privmsg $1 :Zipcode: $net->PostalCode\n";
			print $socket "privmsg $1 :Country: $net->Country\n";
			print $socket "privmsg $1 :CIDR: $net->CIDR\n";
			print $socket "privmsg $1 :Net Name: $net->NetName\n";
			print $socket "privmsg $1 :Net Handle: $net->NetHandle\n";
			print $socket "privmsg $1 :Net Type: $net->NetType\n";
			print $socket "privmsg $1 :Reg Date: $net->RegDate\n";
			print $socket "privmsg $1 :Updated: $net->Updated\n";
			print $socket "privmsg $1 :Parent: $net->Parent\n";
			print $socket "privmsg $1 :Comment: $net->Comment\n";
      		}
    	}