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