use strict;
use Geography::Countries qw(country code2);
use CGI qw(popup_menu);

my %labels;
$labels{$_} = country($_) for code2();

print popup_menu(
   -name   => 'countries',
   -values => [sort keys %labels],
   -labels => \%labels,
);
[download]

I recommend running this script on the command line and redirecting the output to a file, instead of using it as a CGI script (unless you have some caching mechanism employed ;)).

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Rememeber... always check google. Always check the CPAN.

-- Randal L. Schwartz, Perl hacker