use CGI;	
sub write_file {
	$filename = $query->param('portrait');
open (OUTFILE, "> directory/file.xxx");
	while ($bytesread = read ($filename, $buffer, 1024)) {
		print OUTFILE $buffer;
	}
	close $filename;
	close OUTFILE;
}