#!/usr/bin/perl

use CGI qw(:all);
use Net::FTP;
$ftp = Net::FTP->new('foo.com') or die "PROBLEM: $!\n";
$ftp->login('foo','bar') or die "PROBLEM: $!\n";
$ftp->cwd('/incoming') or die "PROBLEM: $!\n";
$ftp->put(param('file')) or die "PROBLEM: $!\n";
$ftp->quit();