#!usr/bin/perl

print "content-type:text/html\n\n";

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Spreadsheet::ParseExcel;


my $obook= Spreadsheet::ParseExcel::Workbook->Parse('Excel//home/www/xxxxxxxxxxxxxxxxxxxx.org/excel/yyyyyyyyyyyyyyy') or die "error: $!";

my $osheet =$obook->{worksheet}[1];

my $sheetname = $osheet->{Name};

my $rows= ($osheet->{minrow}) - ($osheet->{marrow});
my $cols= ($osheet->{mincol}) - ($osheet->{maxcol});

print "$sheetname $rows $cols";