login($command, $login, $password);

sub login {
    my($command, $login, $password) = @_;

    ...
}