...
    my ($self, $server, $user, $pass) = (@_);
    ...