sub log_has_ip {
  my( $logfile, $ip ) = @_;
  $ip = qr/$ip/;

  open( my $lfh, $logfile ) or die "Can't open $logfile: $!\n";
  while( <$lfh> ) {
    return 1 if /$ip/;
  }

  return
}