1 2 3 4 5 6 7
<%init> my @params; while ( (my $key, my $value) = each %ARGS ){ push @params, $key."=".$m->interp->apply_escapes($value,'u'); } return(join('&',@params)); </%init>