my $c = new CGI::Lite;
my %post = $c->parse_form_data('POST');

##</code><code>##

<form method="post" action="script.cgi?choice=one">