# -*- perl -*-
sub foo ($) {
  $CGI->param(@_);
}