Help for this page

Select Code to Download

Select or download this

use Regexp::Common qw( net );

...
      if exists $interesting_ips{ $addr };
  }
}