Select Code to Download

use vars qw(%country);

+{
    af => 'afghanistan',
...
    be => 'belgium',
    bg => 'bulgaria',
};

my $country = do "countries.pl";
die "Error loading country data: $@\n" if $@;

print "$country->{af}\n";