Кто-нибудь использовал Spreadsheet::WriteExcel. Проблемы при открытии в Excel

Попробуй 
use locale;
use POSIX qw(locale_h);
my $locale = "ru_RU.CP-1251";
my $new_locale = setlocale(LC_ALL, $locale);

Я пользовал.
Там вся вишка в том, что в Excel можно писать или в ASCII или в Unicode,
напрямую написать в excel текс в Cp1251 нельзя.
Есть в описании пакета example там рассказано как это делать,я лично делал вот так:
правда мой пример для ISO-8859-13,но я думаю для Cp1251 не должно ни чего меньтся, просто укажи правильно Cp1251(не стану обманивать, просто не знаю как правильно, скорей всего Cp1251,а может и CP-1251 или Win1251)


$Map = new Unicode::Map("ISO-8859-13");
$str= $Map -> to_unicode ($str);
$worksheet->write_unicode(1,1,$str,$border);