Select Code to Download

sub bot_command {
    my $command = shift(@_);
...
    ....
    default($command);
}

sub bot_command {
    local $_ = shift;
...
    /msg/  ? &msg_user     :
             &default
}

  sub join_channel { ... }
  sub part_channel { ... }
...
       ? &{$dispatch{$cmd}}
       : &default
  }