Select Code to Download

<form action="/perl/scriptname" method="post">
<input type="text" name="a" value="">
<input type="submit" value="Submit">
</form>

use CGI;
my $q = CGI->new();
my $a = $q->param('a');