my @files = do {
   my $list_response = $ua->get("$uri?action=list_files");
   if (!$list_response->is_success()) {
      die(...);
   }

   split /\n/, $response->content()
};

for my $file (@files) {
   my $esc_file = uri_escape($file);

   my $get_response = $ua->get(
      "$uri?action=get&file=$esc_file",
      ":content_file" => $file,
   );
   if (!$get_response->is_success()) {
      unlink($file);
      warn(...);
      next;
   }

   my $move_response = $ua->post(
      "$uri?action=move&file=$esc_file",
   );
   if (!$move_response->is_success()) {
      warn(...);
      next;
   }
}