#!/usr/local/bin/perl
use warnings;
use strict;
use Spreadsheet::XLSX;
use Spreadsheet::ParseExcel;
use Data::Dumper;

my $Output_FileName = 'outfile.txt';
my $Output_FileName1 = 'outfile1.txt';
my $excel = Spreadsheet::XLSX -> new ('book1.xlsx');
my $parser   = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('book2.xls');

open(my $FH, '>', $Output_FileName) or die "Could not open file '$Output_FileName' $!";
	print $FH Dumper(\$excel);
    close $FH;
	
open(my $FH1, '>', $Output_FileName1) or die "Could not open file '$Output_FileName1' $!";
	print $FH1 Dumper(\$excel);
    close $FH1;