Select Code to Download

use strict;
use warnings;
...
unless(my $ok = $ae->extract){
    print "There was an error: $ae->error";    
}

use strict;
use warnings;
...
my $out = "Testing.xls";

my $status = gunzip $file => $out or die "gunzip failed: $GunzipError\
+n";