for ($loop=1; $loop <= $form{'files'}; $loop++){
if ($form{"img$loop"}){
$file =$q->upload($form{"img$loop"});#key line
if ($form{"img$loop"} =~ /(.*)\/(.*)/) { $form1{"img$loop"}=$2;}
if ($form{"img$loop"} =~ /(.*)\\(.*)/) { $form1{"img$loop"}=$2;}
open(FILE, ">$form{'filename'}/$form1{\"img$loop\"}");
#binmode FILE;
while ($bytesread=read($file,$buffer,1024)) {
print FILE $buffer;
}
close(FILE);
}
}