I have a simple script which uses Net::FTP to connect to NAI's site and download various updates. The script works but I have a question about a warning/error that intermittently shows up. The message is:

Unable to close datastream at script.pl line 92
[download]

Line 92 is:

$ftpmsg = $ftp->get($listing{$x}[$y][0],"/$path1/$path2/$x/$listing{$x
+}[$y][0]");
[download]

The only problem caused by this is emotional distress because I don’t have any idea what I might be doing wrong to cause this warning. Here is a small snippet of the code:

…

$ftp = Net::FTP->new("ftp.nai.com", Debug => 0) or die "Cannot connect
+ to ftp.nai.com: $@\n";
$ftp->login("anonymous","user\@domain.com") or die "Cannot login to ft
+p.nai.com: " . $ftp->message . "\n";
$ftp->binary() or die "Cannot change to binary data format: ". $ftp->m
+essage() . "\n";

…
        $counter = 0;
        do
        {
            $counter++;
            $ftpmsg = $ftp->get($listing{$x}[$y][0],"/$path1/$path2/$x
+/$listing{$x}[$y][0]");
        } until ($ftpmsg eq "/$path1/$path2/$x/$listing{$x}[$y][0]" ||
+ $counter >= 10);

…
[download]

Any information would be greatly appreciated.

Thanks,
Chris

Update:
I looked at the code for Net::FTP and found this at the end of the get subroutine:

 unless ($data->close()) # implied $ftp->response
  {
   carp "Unable to close datastream";
   return undef;
  }
[download]

Since it uses carp instead of croak, I'm pretty sure that this is a warning and not an error. However, I'm still not quite sure what this means. It appears to me, a relative novice, that the file was downloaded but since the connection could not be closed, the routine returns undef which tells me the download failed even though the file is probably intact. Is there a way to fix this or do I just have to learn to live with it?