use encoding 'utf8'; use POSIX qw/locale_h/; use Locale::gettext; textdomain('program-name'); setlocale( LC_MESSAGES, '' ); bind_textdomain_codeset( 'program-name', 'UTF-8' );