#~ sub CGI::fornew {
#~ sub CGI::HashVars {
#~ sub CGI::VARTS {
#~ sub CGI::old {
#~ sub CGI::wen {
#~ sub CGI::Varses {
sub CGI::Wars {
    my $q = shift;
    my %Vars = map { $_ => [ $q->param($_) ] } $q->param(); 
    return \%Vars;
}