Foro - Perl en Español

Estimados, espero alguien me pueda ayudar. Estoy teniendo problemas con este trozo de código:

$file = "archivo.zip";
my $ftp = Net::FTP->new("ftp.ftpAlQueMeConecto.cl",Port => 21, Debug => 1)
or die "ERROR AL CONECTAR";
$ftp->login("Login",'Password')
or die "error en el login ", $ftp->message;
$ftp->pasv();
$ftp->binary();
$ftp->get($file, "/tmp/archivo.zip") ||
die "get($file) failed: " . $ftp->code() . ": " . $ftp->message();#error
$ftp->quit;

La llamada a la librería está hecha. Lo he probado en varios servers y ha funcionado muy bien, pero estoy con un Linux Mint 12 y me lanza el siguiente error:

failed: 150: Opening BINARY mode data connection for archivo.zip

De antemano, gracias por la ayuda.

Bienvenido a los foros de Perl en Español, pablopimp.

¿Tienes permisos para escribir en /tmp/?

Hola, muchas gracias por responder. Sí tiene permisos. Saludos.

Pues yo no veo errores...

Tienes el Debug activado, pero el mensaje que nos sacas es el resultado del die()... ¿En los mensajes de depurado no sale nada que dé una pista de lo que pasa?

¿Puedes copiarlos aquí? Si hay información sensible, falseala.