я нашёл способ интереснее (для любого формата).
в той же библиотеке spreadsheet есть модулец: FmtUnicode;
добавив несколько строк:
use Spreadsheet::ParseExcel;
my $oExcel = new Spreadsheet::ParseExcel;
use Spreadsheet : : ParseExcel : : FmtUnicode;
my $oFmtJ = Spreadsheet : : ParseExcel : : FmtUnicode->new( Unicode_Map => 'CP1251');
sub PrnBook($);
##важно далее добавить в Parse новую переменную $oFmtJ,
##она то и задаёт нашу родную кодировку
my $oBook = $oExcel->Parse('Excel/Test97.xls',$oFmtJ);
PrnBook($oBook);
про док не знаю, думаю на спане всё есть, поищи:
search.cpan.org
или
http://www.cpan.org/modules/01modules.index.html