my $gz ='';
my $data;
eval {
         $data = gunzip( $gz );
         1; 
     }
 or do {
        print "Error: $@";
        exit;
        };
print "Done";
[download]

Give me Attempt to uncompress empty string at ./aaa.pl line 10. Done; Which is prevent script from die, but do not catch a fatal error.... Thank you for link to the bug