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,
);