use strict;
use warnings;
use Archive::Extract;
my $file = "Testing.xls.gz";

my $ae  = Archive::Extract->new(archive => $file);
unless(my $ok = $ae->extract){
    print "There was an error: $ae->error";	
}