Select Code to Download

%country_names = (
     "AF" => "Afghanistan",
...
     "BD" => "Bangladesh",
     "BB" => "Barbados",
);

opendir(ODIR, "$sr_data/f") || die ("Unable to open directory $sr_data
+/f");
        @intl_files = grep !/^\./, readdir ODIR; #this line gets rid o
+f . and ..
...
              print FILE "<option value=\"$file\">$country_names{$file
+}</option>\n"; 
          }
          close(FILE);