20a21,24
> my $s = $q->param('submit');
> 
> if($s) {
> print $q->header;
22c26,27
< my $filename  = $q->param( "filename" ) || error( $q, "No filename entered." );
---
> #my $filename  = $q->param( "filename" ) || error( $q, "No filename entered." );
> my $filename  = $q->param( "file" ) || error( $q, "No filename entered." );
47,48c52,53
< binmode $fh;
< binmode OUTPUT;
---
> #binmode $fh;
> #binmode OUTPUT;
51,52c56,61
< while ( read( $fh, $buffer, BUFFER_SIZE ) ) {
<     print OUTPUT $buffer;
---
> #while ( read( $fh, $buffer, BUFFER_SIZE ) ) {
> #    print OUTPUT $buffer;
> #}
> while (<$file>) {
>    print OUTPUT $_;
>    print $q->br,"$_",$q->br;
53a63,65
> print "file uploaded";
> 
> 
55a68,74
> }
> else{
> print $q->header,$q->start_multipart_form(),
> $q->filefield(-name=>'file',-size=>60),$q->br,
> $q->submit(-label=>'Upload File',-name=>'submit',-value=>'test'), 
> $q->end_form;
> }
57c76
< print $q->header( "text/plain" ), "File received.";
---
> #print $q->header( "text/plain" ), "File received.";