sub login{
    my $self = shift;
    my ($nick, $pass) = @_;
    my $session = $self->param('session');
    if(defined $nick and defined $pass){
        if($nick eq $pass){
            #REPLACE THIS WITH A REAL CHECK!!!!
            #DO STUFF
          }else{
            #DO OTHER THINGS
          }
     }