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