use Spreadsheet::Read;
use Text::CSV_XS;

##</code><code>##

xlscat -S 1 -C 9-11,21  -c sample.xlsx >file1.csv

##</code><code>##

cpan Spreadsheet::Read

##</code><code>##

marto@shemp:~$ cpan Spreadsheet::Read
Reading '/home/marto/.cpan/Metadata'
  Database was generated on Thu, 24 Oct 2013 07:53:02 GMT
Running install for module 'Spreadsheet::Read'
Running make for H/HM/HMBRAND/Spreadsheet-Read-0.49.tgz
Checksum for /home/marto/.cpan/sources/authors/id/H/HM/HMBRAND/Spreadsheet-Read-0.49.tgz ok

  CPAN.pm: Building H/HM/HMBRAND/Spreadsheet-Read-0.49.tgz

Do you want to install 'xlscat' (Convert Spreadsheet to plain text or CSV) ?  [y] y
Do you want to install 'ss2tk' (Show a Spreadsheet in Perl/Tk) ?  [y] y
Do you want to install 'xls2csv' (Wrapper around xlscat for easy XLS => CSV) ?  [y] y
Checking if your kit is complete...
Looks good