$ cat upload5.pl
#!/usr/bin/perl -w
use strict;
use Net::FTP;
my $domain = 'www.altgreendesigns.com';
my $username = '';
my $password = '';
my $file1 = 'hydrogenalternativefromfossils.avi';
my $ftp = Net::FTP->new($domain, Debug=>1, Passive=>1)    or die "Can't connect: $@\n";
$ftp->login($username, $password)       or die "Couldn't login\n";
$ftp->binary();
$ftp->cwd('/vids/') or die "cwd failed $@\n";
$ftp->put($file1) or die "put failed $@\n";
my @list = $ftp->dir();
# print "@list \n";
$