#!e:/Perl/bin/Perl.exe
use strict;
use diagnostics;
#use CGI qw( :all );
use CGI::Pretty qw(  :all );

my @test_list = qw/the quick brown fox/;
print @test_list, "\n";

print "Have parameters\n" if param;
my @params = param();
print @params. "\n";

##</code><code>##

C:\www\NB.biz\html>menu.pl "a=1&b=2&"
thequickbrownfox
Have parameters
2