if ( $q->param() ) { my $filehandle = $q->param('file'); binmode($filehandle); open(OUT,">/var/www/html/toiletben/pictures/tempout") || die $!; binmode(OUT); # process $filehandle { my $buffer; while ( read($filehandle,$buffer,1024) ) { print OUT $buffer; } } close(OUT); print $q->header, $q->start_html, $q->p('File uploaded'), $q->end_html; exit(0); }