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