my $corrupt = $gzipped;

    # Overwrite part of the compressed data with junk
    substr($corrupt, 10, 3, "BAD") ;

    gunzip \$corrupt => \$uncompressed
      or print "Cannot gunzip: $GunzipError\n";