# truncate the compressed data
    my $truncated = substr($gzipped, 0, 10);

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