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