my $cgi = $params->{'cgi_object'};
	if (!$cgi) {
           return 0;
	}
	my @fields = $cgi->param;
	my $size=0;
	foreach my $field (@fields) {
		my $fh = $cgi->upload($field);
		next if !$fh;
		my $basename = $cgi->param($field);
	    if ($basename =~ /([^\/\\]+)$/) {
	        $basename=$1;
	    }
		if (!$cs) {
			$basename =~ s/\s+/_/g;
			$basename = lc($basename);
		}
		open(OUTFILE, ">$upload_path$basename") or die $!;
		binmode OUTFILE;
	    {
			my $buffer;
			my $bytesread = read($fh, $buffer, 1024);

			die "error with file read: $!" if !defined($bytesread);
			die "error with print: $!" unless (print OUTFILE $buffer); 
			
			if ($bytesread) {
				$size += $bytesread;
				redo;
			}
 		} 
		
	    close(OUTFILE);