«

[sorry can only paste as quotation]

> $ perl nov1.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.2
> Net::FTP=GLOB(0x8c5997<<< 220 FTP Server ready.
> Net::FTP=GLOB(0x8c5997>>> USER u63263303
> Net::FTP=GLOB(0x8c5997<<< 331 Password required for u63263303
> Net::FTP=GLOB(0x8c5997>>> PASS ....
> Net::FTP=GLOB(0x8c5997<<< 230 User u63263303 logged in
> Net::FTP=GLOB(0x8c5997>>> TYPE I
> Net::FTP=GLOB(0x8c5997<<< 200 Type set to I
> Net::FTP=GLOB(0x8c5997>>> CWD /vids/
> Net::FTP=GLOB(0x8c5997<<< 250 CWD command successful
> Net::FTP=GLOB(0x8c5997>>> ALLO 43230955
> Net::FTP=GLOB(0x8c5997<<< 202 No storage allocation necessary
> Net::FTP=GLOB(0x8c5997>>> PASV
> Net::FTP=GLOB(0x8c5997<<< 227 Entering Passive Mode (50,21,179,12,240,67).
> Net::FTP=GLOB(0x8c5997>>> STOR munga1.flv
> Net::FTP=GLOB(0x8c5997<<< 150 Opening BINARY mode data connection for munga1.flv
> Net::FTP=GLOB(0x8c5997: Timeout at /usr/share/perl/5.10/Net/FTP/dataconn.pm line 74
> Use of uninitialized value $@ in concatenation (.) or string at nov1.pl line 15.
> put failed
> $

> $ cat nov1.pl
> #!/usr/bin/perl -w
> use strict;
> use Net::FTP;
> my $domain = 'www.altgreendesigns.com';
> my $username = 'u63263303';
> my $password = '';
> my $file = 'munga1.flv';
> my $file2 = 'dl1.flv';
>
> 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->mkdir('/vids/');
> $ftp->cwd('/vids/') or die "death $@\n";
> $ftp->put($file) or die "put failed $@\n";
> $ftp->get($file, $file2) or die "get failed $@\n";
> $

Maybe something with Passive?
--
Uno