while ($size = read($file,$data,1024)) {
         print SAVE $data || die "Could not print to $file";
         $total_size += $size;
      }