#!/usr/bin/perl -w
use strict;
use Net::FTP::Recursive;
my $ftp = Net::FTP::Recursive->new("ftp.domain.name", Debug => 1);
$ftp->login("anonymous",'scientist@site');
$ftp->cwd('/pub/files/');
$ftp->rget();
$ftp->quit;