$ perl upload5.pl
Net::FTP>>> Net::FTP(2.77)
Net::FTP>>>   Exporter(5.63)
Net::FTP>>>   Net::Cmd(2.29)
Net::FTP>>>   IO::Socket::INET(1.31)
Net::FTP>>>     IO::Socket(1.31)
Net::FTP>>>       IO::Handle(1.28)
Net::FTP=GLOB(0x8ec59a0)<<< 220 FTP Server ready.
Net::FTP=GLOB(0x8ec59a0)>>> USER u63263303
Net::FTP=GLOB(0x8ec59a0)<<< 331 Password required for u63263303
Net::FTP=GLOB(0x8ec59a0)>>> PASS ....
Net::FTP=GLOB(0x8ec59a0)<<< 230 User u63263303 logged in
Net::FTP=GLOB(0x8ec59a0)>>> TYPE I
Net::FTP=GLOB(0x8ec59a0)<<< 200 Type set to I
Net::FTP=GLOB(0x8ec59a0)>>> CWD /vids/
Net::FTP=GLOB(0x8ec59a0)<<< 250 CWD command successful
Net::FTP=GLOB(0x8ec59a0)>>> ALLO 37155952
Net::FTP=GLOB(0x8ec59a0)<<< 200 ALLO command successful
Net::FTP=GLOB(0x8ec59a0)>>> PASV
Net::FTP=GLOB(0x8ec59a0)<<< 227 Entering Passive Mode (50,21,179,12,196,219).
Net::FTP=GLOB(0x8ec59a0)>>> STOR hydrogenalternativefromfossils.avi
Net::FTP=GLOB(0x8ec59a0)<<< 150 Opening BINARY mode data connection for hydrogenalternativefromfossils.avi
Net::FTP=GLOB(0x8ec59a0): Timeout at /usr/share/perl/5.10/Net/FTP/dataconn.pm line 74
Use of uninitialized value $@ in concatenation (.) or string at upload5.pl line 12.
put failed 
$ 
##</code><code>##

 $ 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";
$