The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# -*- Mode: Perl -*-

use Test::More tests => 1;

use Config::Properties;

my $cfg = Config::Properties->new(encoding => 'UTF-8');
$cfg->load(\*DATA);

is ($cfg->getProperty('country'), "Espa\xf1a", 'country');

__DATA__

country = EspaƱa