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

        open (FILE,">$user{'site_id'}/$filename") || &error("Could not create $filename: $!");
        binmode (FILE);
        print FILE $q->param("file$i");
        close (FILE);
      }
}
}