#!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";