uso del modulo Net::FTP

[Raul21]

Hola buenos días:

Estoy usando el modulo Net::FTP para transferir un archivo desde una maquina remota a otra.

He escrito el siguiente codigo:

#!/opt/Omnibus/scripts/bin/perl -w


use Net::FTP;

$ftp = Net::FTP->new("10.195.23.34", Debug => 0)
or die "Cannot connect to some.host.name: $@";

$ftp->login("consulta",'consulta')
or die "Cannot login ", $ftp->message;

$ftp->cwd("/home/consulta")
or die "Cannot change working directory ", $ftp->message;

$ftp->get("clientesPrimarios.lookup","/opt/Omnibus/scripts/raul")
or die "get failed ", $ftp->message;

$ftp->quit;


Con esto pretendo conectarme a la maquina con host 10.195.23.34, la cual tiene como usuario: consulta y como password : consulta.
Entonces quiero obtener en la otra el fichero que está en el directorio /home/consulta llamado clientesPrimarios.lookup y ponerlo en la otra maquina en el fichero con ruta opt/Omnibus/scripts/raul.

Al ejecutarlo me sale el siguiente error : "Cannot login Login incorrect."

No se que puede suceder porque el login es el que pongo.

Si alguien pudiera ayudarme lo agradeceria.
Gracias un saludo.