sub on_connect {
    my $self = shift;

    print "Joining Channel: $channel\n";
    $self->join($channel);
}