Select Code to Download

   sub removeRemoteFile {
      my $file = shift;
...
      }
      return FALSE;
   }

   sub removeRemoteFile {
      my %args = @_;
...
      }
      return FALSE;
   }

   sub getFile {
      my %args  =  @_;
...
      unlink "$args{LOCAL}/$name"   if -f "$args{LOCAL}/$name";
      return FALSE;
   }

   for my $file ( ... ) {
      if (getFile( ... )) {
...
         warn "Couldn't download $args{REMOTE}/$file!\n";
      }
   }