All pastes #483725 Raw Edit

Stuff

public text v1 · immutable
·published 2007-05-11 21:19 UTC
rendered paste body
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);
}