%country_names = (
     "AF" => "Afghanistan",
     "AX" => "Aland Islands",
     "AL" => "Albania",
     "DZ" => "Algeria",
     "AS" => "American Samoa",
     "AD" => "Andorra",
     "AO" => "Angola",
     "AI" => "Anguilla",
     "AQ" => "Antarctica",
     "AG" => "Antigua And Barbuda",
     "AR" => "Argentina",
     "AM" => "Armenia",
     "AW" => "Aruba",
     "AU" => "Australia",
     "AT" => "Austria",
     "AZ" => "Azerbaijan",
     "BS" => "Bahamas",
     "BH" => "Bahrain",
     "BD" => "Bangladesh",
     "BB" => "Barbados",
);

##</code><code>##

opendir(ODIR, "$sr_data/f") || die ("Unable to open directory $sr_data/f");
		@intl_files = grep !/^\./, readdir ODIR; #this line gets rid of . and ..
		closedir ODIR;		
		open(FILE,">$includes_codes_dir/sc_intl_dd.txt"); 
          foreach $file (sort @intl_files) { 
        		$file =~ s/\.\w+$//; #remove the extension
          	print FILE "<option value=\"$file\">$country_names{$file}</option>\n"; 
          }
          close(FILE);