for ($loop=1; $loop <= $form{'files'}; $loop++){
        if ($form{"img$loop"}){
print STDERR "in if: form var img${loop} is $form{img${loop}}\n"
  if $debug > 15;
...
print STDERR "done mussing: form1 img$loop is $form1{img${loop}}\n"
  if $debug > 10;
print STDERR "opening: form filename is $form{filename}\n"
  if $debug > 20;
open(FILE, ">$form{'filename'}/$form1{\"img$loop\"}") 
  or die "can't open ", "$form{filename}/$form1{img${loop}}", ": $!";
while ($bytesread=read($file,$buffer,1024)) {
print STDERR "while: read $bytesread\n" 
  if $debug > 20;