use strict;
use warnings;
use CGI;
                                                                                
my $CGI = new CGI;
                                                                                
my $menu_values = {'one' => 'eenie', 'two' => 'meenie', 'three' => 'minie'};
                                                                                
print $CGI->popup_menu(-name=>'menu_name', -values=>$menu_values);

##</code><code>##

Reference found where even-sized list expected at test.pl line 18.

##</code><code>##

<select name="menu_name">
<option value="three">minie</option>
<option value="one">eenie</option>
<option value="two">meenie</option>