#!/usr/bin/perl
1 use Net::FTP;
2 my $host="domain.org";
3 my $directory="public_html/tmp";
4 my $name="xxx.pdf";
5 $ftp=Net::FTP->new($host,Timeout=>240);
6 $ftp->login("username","password");
7 $ftp->cwd($directory);
8 $ftp->put($name);
9 $ftp->quit;