sub login {
        my ($self, $username, $password) = @_;
         
        carp ref($self)."::login() Unimplemented";
         
        return 0;
}