my $file = $q->param("uploaded_file") || error($q,"No file received");
my $type = $q->uploadInfo($file)->{'Content-Type'};
my $buffer = "";
my $type =~ s!^image/([a-zA-Z]+)$!$1!;

open OUTFILE, ">$upload_dir/$file" or die "Cannot open file";
while ($bytesread=read OUTFILE, $buffer, 1024) {
  print OUTFILE $buffer;
}
close OUTFILE;