package Martian::Countries;

$VERSION = "0.0a";
require 5.004;
require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw(country code);

$codes{"Andorra"} = "AD";
$countries{"AD"} = "Andorra";
$codes{"United Arab Emirates"} = "AE";
$countries{"AE"} = "United Arab Emirates";
$codes{"Afghanistan"} = "AF";
$countries{"AF"} = "Afghanistan";
$codes{"Antigua and Barbuda"} = "AG";
$countries{"AG"} = "Antigua and Barbuda";
$codes{"Anguilla"} = "AI";
$countries{"AI"} = "Anguilla";
$codes{"Albania"} = "AL";
$countries{"AL"} = "Albania";
$codes{"Armenia"} = "AM";
$countries{"AM"} = "Armenia";
$codes{"Netherlands Antilles"} = "AN";
$countries{"AN"} = "Netherlands Antilles";
$codes{"Angola"} = "AO";
$countries{"AO"} = "Angola";
$codes{"Antarctica"} = "AQ";
$countries{"AQ"} = "Antarctica";
$codes{"Argentina"} = "AR";
$countries{"AR"} = "Argentina";
$codes{"American Samoa"} = "AS";
$countries{"AS"} = "American Samoa";
$codes{"Austria"} = "AT";
$countries{"AT"} = "Austria";
$codes{"Australia"} = "AU";
$countries{"AU"} = "Australia";
$codes{"Aruba"} = "AW";
$countries{"AW"} = "Aruba";
$codes{"Azerbaijan"} = "AZ";
$countries{"AZ"} = "Azerbaijan";
$codes{"Bosnia and Herzegovina"} = "BA";
$countries{"BA"} = "Bosnia and Herzegovina";
$codes{"Barbados"} = "BB";
$countries{"BB"} = "Barbados";
$codes{"Bangladesh"} = "BD";
$countries{"BD"} = "Bangladesh";
$codes{"Belgium"} = "BE";
$countries{"BE"} = "Belgium";
$codes{"Burkina Faso"} = "BF";
$countries{"BF"} = "Burkina Faso";
$codes{"Bulgaria"} = "BG";
$countries{"BG"} = "Bulgaria";
$codes{"Bahrain"} = "BH";
$countries{"BH"} = "Bahrain";
$codes{"Burundi"} = "BI";
$countries{"BI"} = "Burundi";
$codes{"Benin"} = "BJ";
$countries{"BJ"} = "Benin";
$codes{"Bermuda"} = "BM";
$countries{"BM"} = "Bermuda";
$codes{"Brunei Darussalam"} = "BN";
$countries{"BN"} = "Brunei Darussalam";
$codes{"Bolivia"} = "BO";
$countries{"BO"} = "Bolivia";
$codes{"Brazil"} = "BR";
$countries{"BR"} = "Brazil";
$codes{"Bahamas"} = "BS";
$countries{"BS"} = "Bahamas";
$codes{"Bhutan"} = "BT";
$countries{"BT"} = "Bhutan";
$codes{"Bouvet Island"} = "BV";
$countries{"BV"} = "Bouvet Island";
$codes{"Botswana"} = "BW";
$countries{"BW"} = "Botswana";
$codes{"Belarus"} = "BY";
$countries{"BY"} = "Belarus";
$codes{"Belize"} = "BZ";
$countries{"BZ"} = "Belize";
$codes{"Canada"} = "CA";
$countries{"CA"} = "Canada";
$codes{"Cocos (Keeling) Islands"} = "CC";
$countries{"CC"} = "Cocos (Keeling) Islands";
$codes{"Central African Republic"} = "CF";
$countries{"CF"} = "Central African Republic";
$codes{"Congo"} = "CG";
$countries{"CG"} = "Congo";
$codes{"Switzerland"} = "CH";
$countries{"CH"} = "Switzerland";
$codes{"Cote D'Ivoire (Ivory Coast)"} = "CI";
$countries{"CI"} = "Cote D'Ivoire (Ivory Coast)";
$codes{"Cook Islands"} = "CK";
$countries{"CK"} = "Cook Islands";
$codes{"Chile"} = "CL";
$countries{"CL"} = "Chile";
$codes{"Cameroon"} = "CM";
$countries{"CM"} = "Cameroon";
$codes{"China"} = "CN";
$countries{"CN"} = "China";
$codes{"Colombia"} = "CO";
$countries{"CO"} = "Colombia";
$codes{"Costa Rica"} = "CR";
$countries{"CR"} = "Costa Rica";
$codes{"Czechoslovakia (former)"} = "CS";
$countries{"CS"} = "Czechoslovakia (former)";
$codes{"Cuba"} = "CU";
$countries{"CU"} = "Cuba";
$codes{"Cape Verde"} = "CV";
$countries{"CV"} = "Cape Verde";
$codes{"Christmas Island"} = "CX";
$countries{"CX"} = "Christmas Island";
$codes{"Cyprus"} = "CY";
$countries{"CY"} = "Cyprus";
$codes{"Czech Republic"} = "CZ";
$countries{"CZ"} = "Czech Republic";
$codes{"Germany"} = "DE";
$countries{"DE"} = "Germany";
$codes{"Djibouti"} = "DJ";
$countries{"DJ"} = "Djibouti";
$codes{"Denmark"} = "DK";
$countries{"DK"} = "Denmark";
$codes{"Dominica"} = "DM";
$countries{"DM"} = "Dominica";
$codes{"Dominican Republic"} = "DO";
$countries{"DO"} = "Dominican Republic";
$codes{"Algeria"} = "DZ";
$countries{"DZ"} = "Algeria";
$codes{"Ecuador"} = "EC";
$countries{"EC"} = "Ecuador";
$codes{"Estonia"} = "EE";
$countries{"EE"} = "Estonia";
$codes{"Egypt"} = "EG";
$countries{"EG"} = "Egypt";
$codes{"Western Sahara"} = "EH";
$countries{"EH"} = "Western Sahara";
$codes{"Eritrea"} = "ER";
$countries{"ER"} = "Eritrea";
$codes{"Spain"} = "ES";
$countries{"ES"} = "Spain";
$codes{"Ethiopia"} = "ET";
$countries{"ET"} = "Ethiopia";
$codes{"Finland"} = "FI";
$countries{"FI"} = "Finland";
$codes{"Fiji"} = "FJ";
$countries{"FJ"} = "Fiji";
$codes{"Falkland Islands (Malvinas)"} = "FK";
$countries{"FK"} = "Falkland Islands (Malvinas)";
$codes{"Micronesia"} = "FM";
$countries{"FM"} = "Micronesia";
$codes{"Faroe Islands"} = "FO";
$countries{"FO"} = "Faroe Islands";
$codes{"France"} = "FR";
$countries{"FR"} = "France";
$codes{"France, Metropolitan"} = "FX";
$countries{"FX"} = "France, Metropolitan";
$codes{"Gabon"} = "GA";
$countries{"GA"} = "Gabon";
$codes{"Great Britain (UK)"} = "GB";
$countries{"GB"} = "Great Britain (UK)";
$codes{"Grenada"} = "GD";
$countries{"GD"} = "Grenada";
$codes{"Georgia"} = "GE";
$countries{"GE"} = "Georgia";
$codes{"French Guiana"} = "GF";
$countries{"GF"} = "French Guiana";
$codes{"Ghana"} = "GH";
$countries{"GH"} = "Ghana";
$codes{"Gibraltar"} = "GI";
$countries{"GI"} = "Gibraltar";
$codes{"Greenland"} = "GL";
$countries{"GL"} = "Greenland";
$codes{"Gambia"} = "GM";
$countries{"GM"} = "Gambia";
$codes{"Guinea"} = "GN";
$countries{"GN"} = "Guinea";
$codes{"Guadeloupe"} = "GP";
$countries{"GP"} = "Guadeloupe";
$codes{"Equatorial Guinea"} = "GQ";
$countries{"GQ"} = "Equatorial Guinea";
$codes{"Greece"} = "GR";
$countries{"GR"} = "Greece";
$codes{"S. Georgia and S. Sandwich Isls."} = "GS";
$countries{"GS"} = "S. Georgia and S. Sandwich Isls.";
$codes{"Guatemala"} = "GT";
$countries{"GT"} = "Guatemala";
$codes{"Guam"} = "GU";
$countries{"GU"} = "Guam";
$codes{"Guinea-Bissau"} = "GW";
$countries{"GW"} = "Guinea-Bissau";
$codes{"Guyana"} = "GY";
$countries{"GY"} = "Guyana";
$codes{"Hong Kong"} = "HK";
$countries{"HK"} = "Hong Kong";
$codes{"Heard and McDonald Islands"} = "HM";
$countries{"HM"} = "Heard and McDonald Islands";
$codes{"Honduras"} = "HN";
$countries{"HN"} = "Honduras";
$codes{"Croatia (Hrvatska)"} = "HR";
$countries{"HR"} = "Croatia (Hrvatska)";
$codes{"Haiti"} = "HT";
$countries{"HT"} = "Haiti";
$codes{"Hungary"} = "HU";
$countries{"HU"} = "Hungary";
$codes{"Indonesia"} = "ID";
$countries{"ID"} = "Indonesia";
$codes{"Ireland"} = "IE";
$countries{"IE"} = "Ireland";
$codes{"Israel"} = "IL";
$countries{"IL"} = "Israel";
$codes{"India"} = "IN";
$countries{"IN"} = "India";
$codes{"British Indian Ocean Territory"} = "IO";
$countries{"IO"} = "British Indian Ocean Territory";
$codes{"Iraq"} = "IQ";
$countries{"IQ"} = "Iraq";
$codes{"Iran"} = "IR";
$countries{"IR"} = "Iran";
$codes{"Iceland"} = "IS";
$countries{"IS"} = "Iceland";
$codes{"Italy"} = "IT";
$countries{"IT"} = "Italy";
$codes{"Jamaica"} = "JM";
$countries{"JM"} = "Jamaica";
$codes{"Jordan"} = "JO";
$countries{"JO"} = "Jordan";
$codes{"Japan"} = "JP";
$countries{"JP"} = "Japan";
$codes{"Kenya"} = "KE";
$countries{"KE"} = "Kenya";
$codes{"Kyrgyzstan"} = "KG";
$countries{"KG"} = "Kyrgyzstan";
$codes{"Cambodia"} = "KH";
$countries{"KH"} = "Cambodia";
$codes{"Kiribati"} = "KI";
$countries{"KI"} = "Kiribati";
$codes{"Comoros"} = "KM";
$countries{"KM"} = "Comoros";
$codes{"Saint Kitts and Nevis"} = "KN";
$countries{"KN"} = "Saint Kitts and Nevis";
$codes{"Korea (North)"} = "KP";
$countries{"KP"} = "Korea (North)";
$codes{"Korea (South)"} = "KR";
$countries{"KR"} = "Korea (South)";
$codes{"Kuwait"} = "KW";
$countries{"KW"} = "Kuwait";
$codes{"Cayman Islands"} = "KY";
$countries{"KY"} = "Cayman Islands";
$codes{"Kazakhstan"} = "KZ";
$countries{"KZ"} = "Kazakhstan";
$codes{"Laos"} = "LA";
$countries{"LA"} = "Laos";
$codes{"Lebanon"} = "LB";
$countries{"LB"} = "Lebanon";
$codes{"Saint Lucia"} = "LC";
$countries{"LC"} = "Saint Lucia";
$codes{"Liechtenstein"} = "LI";
$countries{"LI"} = "Liechtenstein";
$codes{"Sri Lanka"} = "LK";
$countries{"LK"} = "Sri Lanka";
$codes{"Liberia"} = "LR";
$countries{"LR"} = "Liberia";
$codes{"Lesotho"} = "LS";
$countries{"LS"} = "Lesotho";
$codes{"Lithuania"} = "LT";
$countries{"LT"} = "Lithuania";
$codes{"Luxembourg"} = "LU";
$countries{"LU"} = "Luxembourg";
$codes{"Latvia"} = "LV";
$countries{"LV"} = "Latvia";
$codes{"Libya"} = "LY";
$countries{"LY"} = "Libya";
$codes{"Morocco"} = "MA";
$countries{"MA"} = "Morocco";
$codes{"Monaco"} = "MC";
$countries{"MC"} = "Monaco";
$codes{"Moldova"} = "MD";
$countries{"MD"} = "Moldova";
$codes{"Madagascar"} = "MG";
$countries{"MG"} = "Madagascar";
$codes{"Marshall Islands"} = "MH";
$countries{"MH"} = "Marshall Islands";
$codes{"Macedonia"} = "MK";
$countries{"MK"} = "Macedonia";
$codes{"Mali"} = "ML";
$countries{"ML"} = "Mali";
$codes{"Myanmar"} = "MM";
$countries{"MM"} = "Myanmar";
$codes{"Mongolia"} = "MN";
$countries{"MN"} = "Mongolia";
$codes{"Macau"} = "MO";
$countries{"MO"} = "Macau";
$codes{"Northern Mariana Islands"} = "MP";
$countries{"MP"} = "Northern Mariana Islands";
$codes{"Martinique"} = "MQ";
$countries{"MQ"} = "Martinique";
$codes{"Mauritania"} = "MR";
$countries{"MR"} = "Mauritania";
$codes{"Montserrat"} = "MS";
$countries{"MS"} = "Montserrat";
$codes{"Malta"} = "MT";
$countries{"MT"} = "Malta";
$codes{"Mauritius"} = "MU";
$countries{"MU"} = "Mauritius";
$codes{"Maldives"} = "MV";
$countries{"MV"} = "Maldives";
$codes{"Malawi"} = "MW";
$countries{"MW"} = "Malawi";
$codes{"Mexico"} = "MX";
$countries{"MX"} = "Mexico";
$codes{"Malaysia"} = "MY";
$countries{"MY"} = "Malaysia";
$codes{"Mozambique"} = "MZ";
$countries{"MZ"} = "Mozambique";
$codes{"Namibia"} = "NA";
$countries{"NA"} = "Namibia";
$codes{"New Caledonia"} = "NC";
$countries{"NC"} = "New Caledonia";
$codes{"Niger"} = "NE";
$countries{"NE"} = "Niger";
$codes{"Norfolk Island"} = "NF";
$countries{"NF"} = "Norfolk Island";
$codes{"Nigeria"} = "NG";
$countries{"NG"} = "Nigeria";
$codes{"Nicaragua"} = "NI";
$countries{"NI"} = "Nicaragua";
$codes{"Netherlands"} = "NL";
$countries{"NL"} = "Netherlands";
$codes{"Norway"} = "NO";
$countries{"NO"} = "Norway";
$codes{"Nepal"} = "NP";
$countries{"NP"} = "Nepal";
$codes{"Nauru"} = "NR";
$countries{"NR"} = "Nauru";
$codes{"Neutral Zone"} = "NT";
$countries{"NT"} = "Neutral Zone";
$codes{"Niue"} = "NU";
$countries{"NU"} = "Niue";
$codes{"New Zealand (Aotearoa)"} = "NZ";
$countries{"NZ"} = "New Zealand (Aotearoa)";
$codes{"Oman"} = "OM";
$countries{"OM"} = "Oman";
$codes{"Panama"} = "PA";
$countries{"PA"} = "Panama";
$codes{"Peru"} = "PE";
$countries{"PE"} = "Peru";
$codes{"French Polynesia"} = "PF";
$countries{"PF"} = "French Polynesia";
$codes{"Papua New Guinea"} = "PG";
$countries{"PG"} = "Papua New Guinea";
$codes{"Philippines"} = "PH";
$countries{"PH"} = "Philippines";
$codes{"Pakistan"} = "PK";
$countries{"PK"} = "Pakistan";
$codes{"Poland"} = "PL";
$countries{"PL"} = "Poland";
$codes{"St. Pierre and Miquelon"} = "PM";
$countries{"PM"} = "St. Pierre and Miquelon";
$codes{"Pitcairn"} = "PN";
$countries{"PN"} = "Pitcairn";
$codes{"Puerto Rico"} = "PR";
$countries{"PR"} = "Puerto Rico";
$codes{"Portugal"} = "PT";
$countries{"PT"} = "Portugal";
$codes{"Palau"} = "PW";
$countries{"PW"} = "Palau";
$codes{"Paraguay"} = "PY";
$countries{"PY"} = "Paraguay";
$codes{"Qatar"} = "QA";
$countries{"QA"} = "Qatar";
$codes{"Reunion"} = "RE";
$countries{"RE"} = "Reunion";
$codes{"Romania"} = "RO";
$countries{"RO"} = "Romania";
$codes{"Russian Federation"} = "RU";
$countries{"RU"} = "Russian Federation";
$codes{"Rwanda"} = "RW";
$countries{"RW"} = "Rwanda";
$codes{"Saudi Arabia"} = "SA";
$countries{"SA"} = "Saudi Arabia";
$codes{"Solomon Islands"} = "Sb";
$countries{"Sb"} = "Solomon Islands";
$codes{"Seychelles"} = "SC";
$countries{"SC"} = "Seychelles";
$codes{"Sudan"} = "SD";
$countries{"SD"} = "Sudan";
$codes{"Sweden"} = "SE";
$countries{"SE"} = "Sweden";
$codes{"Singapore"} = "SG";
$countries{"SG"} = "Singapore";
$codes{"St. Helena"} = "SH";
$countries{"SH"} = "St. Helena";
$codes{"Slovenia"} = "SI";
$countries{"SI"} = "Slovenia";
$codes{"Svalbard and Jan Mayen Islands"} = "SJ";
$countries{"SJ"} = "Svalbard and Jan Mayen Islands";
$codes{"Slovak Republic"} = "SK";
$countries{"SK"} = "Slovak Republic";
$codes{"Sierra Leone"} = "SL";
$countries{"SL"} = "Sierra Leone";
$codes{"San Marino"} = "SM";
$countries{"SM"} = "San Marino";
$codes{"Senegal"} = "SN";
$countries{"SN"} = "Senegal";
$codes{"Somalia"} = "SO";
$countries{"SO"} = "Somalia";
$codes{"Suriname"} = "SR";
$countries{"SR"} = "Suriname";
$codes{"Sao Tome and Principe"} = "ST";
$countries{"ST"} = "Sao Tome and Principe";
$codes{"USSR (former)"} = "SU";
$countries{"SU"} = "USSR (former)";
$codes{"El Salvador"} = "SV";
$countries{"SV"} = "El Salvador";
$codes{"Syria"} = "SY";
$countries{"SY"} = "Syria";
$codes{"Swaziland"} = "SZ";
$countries{"SZ"} = "Swaziland";
$codes{"Turks and Caicos Islands"} = "TC";
$countries{"TC"} = "Turks and Caicos Islands";
$codes{"Chad"} = "TD";
$countries{"TD"} = "Chad";
$codes{"French Southern Territories"} = "TF";
$countries{"TF"} = "French Southern Territories";
$codes{"Togo"} = "TG";
$countries{"TG"} = "Togo";
$codes{"Thailand"} = "TH";
$countries{"TH"} = "Thailand";
$codes{"Tajikistan"} = "TJ";
$countries{"TJ"} = "Tajikistan";
$codes{"Tokelau"} = "TK";
$countries{"TK"} = "Tokelau";
$codes{"Turkmenistan"} = "TM";
$countries{"TM"} = "Turkmenistan";
$codes{"Tunisia"} = "TN";
$countries{"TN"} = "Tunisia";
$codes{"Tonga"} = "TO";
$countries{"TO"} = "Tonga";
$codes{"East Timor"} = "TP";
$countries{"TP"} = "East Timor";
$codes{"Turkey"} = "TR";
$countries{"TR"} = "Turkey";
$codes{"Trinidad and Tobago"} = "TT";
$countries{"TT"} = "Trinidad and Tobago";
$codes{"Tuvalu"} = "TV";
$countries{"TV"} = "Tuvalu";
$codes{"Taiwan"} = "TW";
$countries{"TW"} = "Taiwan";
$codes{"Tanzania"} = "TZ";
$countries{"TZ"} = "Tanzania";
$codes{"Ukraine"} = "UA";
$countries{"UA"} = "Ukraine";
$codes{"Uganda"} = "UG";
$countries{"UG"} = "Uganda";
$codes{"United Kingdom"} = "UK";
$countries{"UK"} = "United Kingdom";
$codes{"US Minor Outlying Islands"} = "UM";
$countries{"UM"} = "US Minor Outlying Islands";
$codes{"United States"} = "US";
$countries{"US"} = "United States";
$codes{"Uruguay"} = "UY";
$countries{"UY"} = "Uruguay";
$codes{"Uzbekistan"} = "UZ";
$countries{"UZ"} = "Uzbekistan";
$codes{"Vatican City State (Holy See)"} = "VA";
$countries{"VA"} = "Vatican City State (Holy See)";
$codes{"Saint Vincent and the Grenadines"} = "VC";
$countries{"VC"} = "Saint Vincent and the Grenadines";
$codes{"Venezuela"} = "VE";
$countries{"VE"} = "Venezuela";
$codes{"Virgin Islands (British)"} = "VG";
$countries{"VG"} = "Virgin Islands (British)";
$codes{"Virgin Islands (U.S.)"} = "VI";
$countries{"VI"} = "Virgin Islands (U.S.)";
$codes{"Viet Nam"} = "VN";
$countries{"VN"} = "Viet Nam";
$codes{"Vanuatu"} = "VU";
$countries{"VU"} = "Vanuatu";
$codes{"Wallis and Futuna Islands"} = "WF";
$countries{"WF"} = "Wallis and Futuna Islands";
$codes{"Samoa"} = "WS";
$countries{"WS"} = "Samoa";
$codes{"Yemen"} = "YE";
$countries{"YE"} = "Yemen";
$codes{"Mayotte"} = "YT";
$countries{"YT"} = "Mayotte";
$codes{"Yugoslavia"} = "YU";
$countries{"YU"} = "Yugoslavia";
$codes{"South Africa"} = "ZA";
$countries{"ZA"} = "South Africa";
$codes{"Zambia"} = "ZM";
$countries{"ZM"} = "Zambia";
$codes{"Zaire"} = "ZR";
$countries{"ZR"} = "Zaire";
$codes{"Zimbabwe"} = "ZW";
$countries{"ZW"} = "Zimbabwe";
$codes{"US Commercial"} = "COM";
$countries{"COM"} = "US Commercial";
$codes{"US Educational"} = "EDU";
$countries{"EDU"} = "US Educational";
$codes{"US Government"} = "GOV";
$countries{"GOV"} = "US Government";
$codes{"International"} = "INT";
$countries{"INT"} = "International";
$codes{"US Military"} = "MIL";
$countries{"MIL"} = "US Military";
$codes{"Network"} = "NET";
$countries{"NET"} = "Network";
$codes{"Non-Profit Organization"} = "ORG";
$countries{"ORG"} = "Non-Profit Organization";
$codes{"Old style Arpanet"} = "ARPA";
$countries{"ARPA"} = "Old style Arpanet";
$codes{"Nato field"} = "NATO";
$countries{"NATO"} = "Nato field";

sub country {
  my $code = shift;
  return $countries{$code};
}

sub codes {
  my $country = shift;
  return $codes{$country};
}