# WARNING:  Untested code!
use strict;
use warnings;
use Net::FTP::Recursive;

my $ftp = Net::FTP::Recursive->new("some.host.name", Debug => 0);
$ftp->login("anonymous",'me@here.there');

#Change the directory in the below command 
# to the root of the directories you wish
# to upload to
$ftp->cwd('/pub');

# You must have your script in the proper
# local directory; this module automatically 
# uploads it's working directory
chdir('/home/user/data_to_upload');

# According to docs, rput should "just work" 
# on Unix-like systems
$ftp->rput(); 
$ftp->quit();