Select Code to Download

Unable to close datastream at script.pl line 92

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

…
...

…

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