Select Code to Download

my @files=$ftp->dir or print FD1 "error in dir list..."
...
...
   $_=substr($_,41);
   ...
}

my @files = $ftp->dir or die "ack -- can't get ftp->dir";

...
   my ($mode, $nlnk, $grp, $sz, $mo, $dy, $yrtm, $fname) = split( /\s+
+/, $_, 8 );
   ...
}