use 5.012;
use warnings;
use Gzip::Faster;
my $gz="";
my $data;
eval {$data=gunzip($gz)};
if($@) {
    say qq(error: $@)
};
say "Done"