BEGIN {
  eval "require CGI::Simple; CGI::Simple->import;"
  if ($@) {
     eval "require CGI; CGI->import";
     die ($@) if $@;
     $main::q = CGI->new;
  }
  else {
     $main::q = CGI::Simple->new;
  }
}