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.

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