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!;

sysopen (OUTFILE,UPLOAD_DIR . $file, O_CREAT | O_EXCL);  
while ($bytesread=read($file,$buffer,1024)) {
  print OUTFILE $buffer;
}

CLOSE OUTFILE;