$fh = upload('Filedata');
     while (<$fh>) {
           print;
     }