SNOPSYS

use Net::FTP;

$ftp = Net::FTP->new("some.host.name", Debug => 0)
   or die "Cannot connect to some.host.name: $@";

$ftp->login("anonymous",'-anonymous@')
   or die "Cannot login ", $ftp->message;

$ftp->cwd("/pub")
   or die "Cannot change working directory ", $ftp->message;

##</code><code>##

put ( LOCAL_FILE [, REMOTE_FILE ] )
           Put a file on the remote server. "LOCAL_FILE" may be a 
           name or a filehandle.

##</code><code>##

scp -r localdir remote.host:/remote/dir