use Unicode::Map();
use Unicode::String qw(utf8 utf16);
use Config::INI::Simple;
our $conf = new Config::INI::Simple;
# Read the config file.
$conf->read ("/usr/lib/perl5/tengsl/tengsl_en.ini");
my $CHARSET = $conf->{ANNAD}->{CHARSET};
my $Map = new Unicode::Map($CHARSET);

##</code><code>##

return (utf8_to_latin($nafn_fyrirt));

sub utf8_to_latin { $Map->to8(utf8($_[0])->utf16); }