use vars qw(%country);

##</code><code>##

+{
    af => 'afghanistan',
    ao => 'angola',
    ar => 'argentina',
    at => 'austria',
    au => 'australia',
    bd => 'bangladesh',
    be => 'belgium',
    bg => 'bulgaria',
};

##</code><code>##

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

##</code><code>##

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