Select Code to Download

while(<$formdata{upload}>) {
  print;
}

my $buffer;
while(read $formdata{upload},$buffer,1024) {
     print $buffer;
}

my $buffer;
my $max_size = 10 * 1024; # 10 KB but it can be whatever
...
          last;
     }
}