#!/usr/bin/perl
use Net::FTP;
my $ftp = Net::FTP->new("servidor.com") or
die "No se puede conectar a servidor.com: $@\n";
$ftp->login("usuario", "contraseña") or
die "No se puede ingresar: ", $ftp->message;
$ftp->cwd("path/al/directorio") or
die "error en cd: ", $ftp->message;
$ftp->get("archivo.tar.gz") or
die "get fallo: ", $ftp->message;
$ftp->quit;