sub uploadfile {
&bytes;
for ($i=1; $i<=5; $i++) {
      if ($q->param("file$i")) {
               $file = $q->param("file$i");
               $format_left = format_size($left);
                if (($left - (length($file))) < 0) { &inerror("You are out of space in your $format_limit limit, you only have $format_left left."); }
               foreach $line (@badtypes) {
           if ($q->param("file$i") =~ /$line/) { &inerror("Invaild file type"); }
      }
        $filename = $q->param("file$i");
        $filename =~ s/.*[\/\\]//;

        open (OUTFILE,">$user{'site_id'}/$filename") || &error("Could not create $filename: $!");
lock(OUTFILE);
binmode OUTFILE;
while ($bytesread=read($file,$buffer,2024)) 
{ print OUTFILE $buffer; } 
close (OUTFILE); 

      }
}
}