Cliente FTP en Perl

use Net::FTP;
$ftp = Net::FTP->new("host",Debug => 0) or die "No se pude conectar al servidor $@";
$ftp->login('usuario','pass') or die "Nombre de usuario y contraseña invalidos", $ftp->message;
$ftp->cwd("dir") or die "Directorio incorrecto o no se encuentra", $ftp->message;
$ftp->get("nombre archivo") or die "Archivo incorrecto o no se encuentra", $ftp->message;
$ftp->quit;