You could use the now standard (as of 5.8) module Locale::Country. You may also find this node useful.

-Lee

"To be civilized is to deny one's nature."