#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::ParseExcel::Simple;

my $as_file = shift or die("Victim required"); 
my $xls = Spreadsheet::ParseExcel::Simple->read("$as_file") or die("Excel unread");

my $s = 0;
for my $sheet ($xls->sheets) {
    $s++; my $n = 0;
    print "#################################\n";
    print "       sheet $s\n";
    print "#################################\n";
    while ($sheet->has_data) {
	$n++;
	my @d = $sheet->next_row;
	$#d = 3 if @d > 3;
	print join("\t", @d), "\n";
	last if $n > 10;
    }
}