Select Code to Download

sub Parse_Form {
    use CGI qw/:standard/;
...
        }
    }
}

%formdata = map { $_, [ param( $_ ) ] } param;

my $val = $formdata{ 'foo' }->[0];

my $allowedCHARS = 'a-zA-Z0-9\!\"\#\$\%\&\'\(\)\*\+\,\-\.\/\:\;\<\=\>\
+?\@\[\\\]\^\_\`\{\|\}\~';

my $allowedCHARS = 'a-zA-Z0-9' . quotemeta( '!"#$%&\'()*+,-./:;<=>?@[\
+]^_`{|}~' );