Question about Net::FTP

[patrick bossard]

Hi, 

I try to make a FTP client, with resume capacity, but I failled !.
I've tried the get(RemoteFile, LocalFile, Where)
but I get the following error :

Net::FTP: Net::FTP(2.33)
Net::FTP:   Exporter
Net::FTP:   Net::Cmd(2.11)
Net::FTP:   IO::Socket::INET
Net::FTP:     IO::Socket(1.1603)
Net::FTP:       IO::Handle(1.1505)

Net::FTP=GLOB(0x10e18e4)<<< 220 hoedic Microsoft FTP Service (Version
4.0).
Net::FTP=GLOB(0x10e18e4)>>> user anonymous
Net::FTP=GLOB(0x10e18e4)<<< 331 Anonymous access allowed, send identity
(e-mail name) as password.
Net::FTP=GLOB(0x10e18e4)>>> PASS ....
Net::FTP=GLOB(0x10e18e4)<<< 230 Anonymous user logged in.
Net::FTP=GLOB(0x10e18e4)>>> TYPE I
Net::FTP=GLOB(0x10e18e4)<<< 200 Type set to I.
Net::FTP=GLOB(0x10e18e4)>>> PORT 192,9,200,56,7,238
Net::FTP=GLOB(0x10e18e4)<<< 200 PORT command successful.
Net::FTP=GLOB(0x10e18e4)>>> REST 4750848
Net::FTP=GLOB(0x10e18e4)<<< 504 Reply marker must be 0.
Net::FTP=GLOB(0x10e18e4)>>> QUIT
Net::FTP=GLOB(0x10e18e4)<<< 221

Here is the Perl Code :
#! c:/perl/bin/perl.exe

use Net::FTP;

my $file   = "test.zip";
my $lm_ftp = Net::FTP->new("hoedic", "Port" => 21, "Debug" => 1) ;
my $size;

if($lm_ftp->login("anonymous" ,"toto") == 1) {
$lm_ftp->binary();

  if(-e $file) {
    @tab = stat($file);
    $size = $tab[7];
  }
  else { $size=0; }
 
  $res = $lm_ftp->get($file, $file, $size);
}
$lm_ftp->quit;


What's wrong here ? May I use the retr() method ? how does it works ?
Thank you for your help.

Regards,
        Patrick.


-- 
-------------------------------------------------------
                                 Patrick Bossard
      /|/|                       ATLANTIDE Brest
    /00  |    _//|
   |/^^\ |   /oo |        [EMAIL PROTECTED]
    \m_m_|   \mm_|        Tel: +33 2.98.05.43.21