use CGI::Simple;

my $q = CGI::Simple->new();
my %FORM = $q->Vars;

##</code><code>##

my $q = CGI::Simple->new( 'output1=on&output2=on&output3=on&announcement=test' );
my %FORM = $q->Vars;

print "$_ = $FORM{$_}\n" for sort keys %FORM;

__END__
announcement = test
output1 = on
output2 = on
output3 = on