or of course perl:
#!/usr/bin/perl
use Net::FTP;
$ftp = Net::FTP->new("hostname")               or die "Can't
connect: $@\n";
$ftp->login(username,password)                 or die "Can't login!\n";
$ftp->put("/path/to/local/file","/path/to/remote/file")  or die
"Couldn't put file!\n";
$ftp->quit();
a couple of those wrapped
 
-
Ryan