use warnings;
use strict;
use Excel::Table;
use Log::Log4perl qw(:easy);
use Data::Dumper;

my $xs = Excel::Table->new(dir => 'mydir');
$xs->open('test.xlsx');
print Dumper($xs);