sub joinChannel { my $self = shift; open ( ${ $self->{LOGHANDLE} }, '>>', $self->{LOGFILE}) or croak("Failed to open " . $self->{LOGFILE}); $self->SUPER::sendStr("JOIN " . $self->{NAME}); }