#!/usr/bin/env perl
use strict;
use warnings;
use Spreadsheet::ParseExcel::Simple;
my $xls = Spreadsheet::ParseExcel::Simple->read("To_read.xls");
foreach my $sheet ($xls->sheets) {
    while ($sheet->has_data) {
	my @data = $sheet->next_row;
	print join "|", @data;
	print "\n";
    }
}

__END__

$ perl test.pl
Hi Excel!