Gentlemen,

I am writing this follow up to tell you that I had more sucess with Net::Whois::Ip. Below is that code that provided the solution.

my $response = whoisip_query($ip);      # Query the ARIN Database

foreach (sort keys(%{$response}) ) {
        $OrgAbuseEmail = $response->{$_} if( $_ eq 'OrgAbuseEmail');
        $OrgTechEmail = $response->{$_} if( $_ eq 'OrgTechEmail');
        $TechEmail = $response->{$_} if( $_ eq 'TechEmail');

        }
$smtp = Net::SMTP->new("mymailhost", Timeout => 60);

if( $OrgAbuseEmail ){
        #lather with Net::SMTP
        exit;
        }
elsif( $OrgTechEmail ){
        #rinse
        }
elsif( $TechEmail ){
        #repeat
        }
[download]