sub uploadfile {
for ($i=1; $i<=5; $i++) {
      if ($q->param("file$i")) {
        $filename = $q->param("file$i");
        $file = $q->param("file$i");
        $filename =~ s/.*[\/\\]//;

        open (FILE,">$user{'site_id'}/$filename") || &error("Could not create $filename: $!");
{
     local $/="";
     my $uploaded = <$file>;
     print FILE $uploaded;
}
close FILE or die "$!";

      }
}
}