perl -MCGI -e " $q= CGI->new({ ro => qq{=sh\nam=bo\n}, }); print qq{\n\n\n# first save()d and new()able\n}; $q->save( \*STDOUT ); print qq{# and now not save()d and not new()able\n}; for my $key( $q->param ){ for my $val( $q->param($key) ){ print qq{$key=$val\n}; } } "



# first save()d and new()able
ro=%3Dsh%0Aam%3Dbo%0A
=
# and now not save()d and not new()able
ro==sh
am=bo