use Net::Whois::ARIN;

my $w = Net::Whois::ARIN->new(
          host    => 'whois.arin.net',
          port    => 43,
          timeout => 30,
);
my $result = $w->query( '207.173.0.0' );
my %emails = $result =~ m/^(\w*Email):\s*(\S+)/mg;

use Data::Dumper;
print Dumper \%emails;

__DATA__
$VAR1 = {
          'TechEmail' => 'ipadmin@eli.net',
          'OrgTechEmail' => 'support@eli.net',
          'AbuseEmail' => 'abuse@support.eli.net',
          'OrgAbuseEmail' => 'abuse@support.eli.net',
          'NOCEmail' => 'support@eli.net'
        };