#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use CGI;
use Spreadsheet::BasicRead;

my $cgi = CGI->new();

print $cgi->header;

my $xlsFileName = 'test.xls';

my $ss = new Spreadsheet::BasicRead($xlsFileName) ||
       die "Could not open '$xlsFileName': $!";

my $row = 0;
while (my $data = $ss->getNextRow())
{
   $row++;
   print join(',', $row, @$data), "\n";
}