#!/usr/bin/perl 

use CGI; 
use Encode; 

my $cgi = CGI->new;

sub decodedForSomeTypes { 
	$ENV{CONTENT_TYPE} =~ /boundary/ ? $_[0] : decode_utf8($_[0]); 
}

my $params = +{
    map { $_ => decodedForSomeTypes(scalar $cgi->param($_)) } $cgi->param()
};