Select Code to Download

#!/usr/bin/perl

...

# user input, decoded from UTF
my $userinput = getAllInputAsHash({decodeUtf => 1});

#!/usr/bin/perl 

...
    map { $_ => decodedForSomeTypes(scalar $cgi->param($_)) } $cgi->pa
+ram()
};