add_handler(\$on_join_handler, \&on_join);

#$on_join_handler[0] = \&on_join;

#$on_join_handler = \&on_join;
#$on_part_handler = \&on_part;
#$on_quit_handler = \&on_quit;
#$on_msg_handler = \&on_msg;

sub on_join
{
  printf("JOIN:\n");
  printf("Channel: $_[0]\n");
  printf("User: $_[1]\n");
  printf("Nick: $_[2]\n");
  printf("Ident: $_[3]\n");
  printf("Host: $_[4]\n");
}

sub on_part
{
  printf("PART:\n");
  printf("Channel: $_[0]\n");
  printf("User: $_[1]\n");
  printf("Nick: $_[2]\n");
  printf("Ident: $_[3]\n");
  printf("Host: $_[4]\n");
  printf("Reason: $_[5]\n");
}

sub on_quit
{
  printf("QUIT:\n");
  printf("Channel: $_[0]\n");
  printf("User: $_[1]\n");
  printf("Nick: $_[2]\n");
  printf("Ident: $_[3]\n");
  printf("Host: $_[4]\n");
  printf("Reason: $_[5]\n");
}

sub on_msg
{
  printf("MSG:\n");
  printf("Channel/Query: $_[0]\n");
  printf("User: $_[1]\n");
  printf("Nick: $_[2]\n");
  printf("Ident: $_[3]\n");
  printf("Host: $_[4]\n");
  printf("Msg: $_[5]\n");
}