#!/usr/bin/perl
use Net::FTP;
use strict;
my $host = "nombre.servidor.algo"; #Aqui nombre de servidor
my $usuario = "root"; #pon el usuario
my $passwd = "xxxxx"; #pon el passwd aqui;
my $dir = "/docs"; #Directorio donde estan los datos en el servidor;
my $ftp = Net::FTP->new($host, Debug => 0)
or die "Cannot connect to $host: $@\n";
$ftp->login($usuario,$passwd)
or die "Cannot login ", $ftp->message."\n";
$ftp->cwd("$dir")
or die "Cannot change working directory ", $ftp->message;
$ftp->get("that.file")
or die "get failed ", $ftp->message;
$ftp->quit;