#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::BasicRead;
use Excel::Writer::XLSX;
local $" = "'\n'";		

							#Set-up Files

my $xlsx = ( "C:\\Temp\\NCPS_Data\\whole_school_data.xlsx"),, 1;
my @csvtemp;
my $ss   = new Spreadsheet::BasicRead($xlsx) or die;
    my $col = '';
    my $row  = 0;

    while ( my $data = $ss->getNextRow() ) {
	
        $row++;
        $col= join( ",", @$data );
			print @csvtemp,  $col . "\n" if ( $col ne "" );
    }
 __DATA__  
James Le	M	5	tttt	Y	Y	Y
James Le	M	5	11/04/2004	Y	Y