if(is_ipv4($offender)){
        open(WHOIS, $abuse) || die "Error: $!\n";
        while (my $line = <WHOIS>) {
        next unless $line =~ m/^Abuse E-mail :   (\d*)/;
        print "$1\n";
        }
        close(WHOIS);
}