for $file (@files) {
      $ftp->get($file) and $ftp->delete($file);
      $remotesize = $ftp->size($file);
      $localssize=(stat ($file))[7];
      print "$file $localsize $remotesize $theGMTime"; #<-line 25
     }