sub removeRemoteFile {
      my $file = shift;
      for (1 .. 5) {
         return TRUE    if $sftp -> remove($file);
         sleep 30;
      }
      return FALSE;
   }