#!/usr/bin/perl -w

use strict;

use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::Utility qw(xls2csv);

my $rotate = 0 ;
my $filename = 'test.xls';
my $coords = '0-A1:F21';

printf xls2csv( $filename, $coords, $rotate) ;