The perl code is as below :

  use strict; 
    use Spreadsheet::ParseExcel; 
    my $parser = Spreadsheet::ParseExcel->new( 
        CellHandler => \&cell_handler, 
        NotSetCell  => 1 
    ); 
    my $workbook = $parser->Parse('testfile.xls'); 
    sub cell_handler { 
        my $workbook    = $_[0]; 
        my $sheet_index = $_[1]; 
        my $row         = $_[2]; 
        my $col         = $_[3]; 
        my $cell        = $_[4]; 
        print $cell->unformatted(), "\n"; 
    }
[download]

The system output(error) is as below:

D:\Perl\bin\search tool>perl testa.pl 
UTF-16 surrogate 0xdb79 at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xdbb1 at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xd83e at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xdff8 at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xdbff at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xdd98 at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xd9bf at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xdcd7 at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xdde6 at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xdabe at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xdb71 at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xd912 at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xdab0 at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
Unicode character 0xfdde is illegal at D:/Perl/site/lib/Spreadsheet/ 
ParseExcel/FmtDefault.pm 
UTF-16 surrogate 0xdc77 at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
substr outside of string at D:/Perl/site/lib/Spreadsheet/ParseExcel.pm
+ 
line 1015. 
Use of uninitialized value in length at D:/Perl/site/lib/Spreadsheet/ 
ParseExcel.pm line 1951. 
Use of uninitialized value $sTxt in unpack at D:/Perl/site/lib/ 
Spreadsheet/ParseExcel/FmtDefa 
substr outside of string at D:/Perl/site/lib/Spreadsheet/ParseExcel.pm
+ 
line 1020. 
UTF-16 surrogate 0xdeec at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
UTF-16 surrogate 0xdd7e at D:/Perl/site/lib/Spreadsheet/ParseExcel/ 
FmtDefault.pm line 81. 
substr outside of string at D:/Perl/site/lib/Spreadsheet/ParseExcel.pm
+ 
line 1196. 
Use of uninitialized value in unpack at D:/Perl/site/lib/Spreadsheet/ 
ParseExcel.pm line 1196. 
substr outside of string at D:/Perl/site/lib/Spreadsheet/ParseExcel.pm
+ 
line 1196. 
Use of uninitialized value in unpack at D:/Perl/site/lib/Spreadsheet/ 
ParseExcel.pm line 1196. 
Out of memory!
[download]

The system information is as below :

Perl version : 5.010000 
OS name : MSWin32 
Module versions: (not all are required) 
Spreadsheet::ParseExcel 0.49 
Scalar::Util 1.19 
Unicode::Map (not installed) 
Spreadsheet::WriteExcel (not installed) 
Parse::RecDescent (not installed) 
File::Temp 0.18 
OLE::Storage_Lite 0.18 
IO::Stringy 2.110
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.