##

my $month = $cgi->param('month');
# You are using CGI or CGI::Simple, are you not?

# now do whatever you want with that $month

##

##

# here is one of the million ugly ways of doing this. 
# The better way would be to use a templating system.
my @months = qw(03March 04April 05May 06June 07July);

print makeform();

sub makeform {
  my $form = "\n";
  return $form;
}