$basedir = "/home/geert/www/cv";

$onnum = 1;

while ($onnum != 11) {
$file = $req->param("FILE$onnum"); 
if ($file ne "") {
$filename = $file; 
$filename =~ s!^.*(\\|\/)!!; 
open (OUTFILE, ">$basedir/$filename"); 
print "$basedir/$filename<br>";
while (my $bytesread = read($file, my $buffer, 1024)) { 
print OUTFILE $buffer; 
} 
close (OUTFILE); 
}
$onnum++;
}