use Net::FTP;

my $webaddr    = "www.foo.com";
my $username   = "username";
my $password   = "password";
my $target_dir = "www";
my $file       = "c:/test.txt";

$ftp = Net::FTP->new( $webaddr ) or die $@;
$ftp->login( $username, $password ) or die $ftp->message();
$ftp->cwd( $target_dir ) or die $ftp->message();
$ftp->put( $file ) or die $ftp->message();
$ftp->quit;