To download multiple files, Net::FTP won't really help you that much. To download a directory or multiple directories, use Net::DownloadMirror. Here's an example downloading a directory(3272K):

#!perl

use strict;
use warnings;
use Net::FTP;
use Net::DownloadMirror;

use constant HOST   => 'ftp.cpan.org';
use constant REMOTE => '/pub/xemacs-www/Download/';
use constant LOCAL  => '/root/Desktop/local';
use constant USER   => 'anonymous';
use constant PASS   => '-anonymous@';

my $ftp = Net::DownloadMirror->new(
          ftpserver => HOST, 
          user      => USER,
          pass      => PASS,
          debug     => 1, 
          localdir  => LOCAL,
          remotedir => REMOTE,
);
$ftp->Download();
[download]