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