sub auth {
    my ($self, $username, $password) = @_;
.
.