#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11128056
use warnings;

use Gzip::Faster;
my $gz = '';
my $data;
eval
  {
  local *STDERR;
  open STDERR, '>', '/dev/null';

  $data = gunzip( $gz );
  } or die "can't unzip file";
[download]

Outputs just:

can't unzip file at ./pm11128056.pl line 10.
[download]