use CGI qw(:debug);
chomp (my $choice = param('choice'));