Help for this page
my $query=new CGI(); $query->import_names('C'); print "C - $C::foo";
my $cmd="ls"; foreach $key (CGI::param()) { ${$key} = CGI::param($key) } system $cmd;