my $query=new CGI();
  $query->import_names('C');
  print "C - $C::foo";

##</code><code>##

my $cmd="ls";
foreach $key (CGI::param()) { ${$key} = CGI::param($key) }
system $cmd;