#!/usr/bin/perl

use warnings;
use strict;
use CGI;

my $cgi = CGI->new();

print $cgi->popup_menu(-name=>"Days", -values=>[ 1 .. 31]);