This is a simple Perl script to upload files from a server via the PHP shell interface to some anonymous FTP server.

use Net::FTP;
my $host = '';
my $port = 21;
my $user = ”;
my $pass = ”;

my $file = shift || die "usage: $0 file";
my $ftp = Net::FTP->new($host) or die "failed.$!";
$ftp->login($user, $pass);
$ftp->binary();
$ftp->put($file);
$ftp->quit();

cheers

M
__________________
This will be their great security.

$6.00 Welcome Survey After Free Registration!