Select Code to Download

#!/usr/bin/perl -w
use strict;
...
close OUTFILE;
close INFILE;

  $fh = $query->upload('FILE1');
  binmode $fh;
  while ($bytesread=read($fh, $buffer, 1024)) {
    print OUTFILE $buffer;
  }