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