Not sure if this piece of code was put in by intention.

    # primitive.
    if ($event->userhost =~
        /\@adsl-63-197-80-100\.dsl\.snfc21\.pacbell\.net$/) {
        $self->mode($channel,'+o',$event->nick);
    }