5 use IO::Compress::Gzip qw(gzip $GzipError);
7 gzip '-' => '-', Minimal => 1
8 or die "gzstream: $GzipError\n" ;
14 #my $gz = new IO::Compress::Gzip *STDOUT
15 my $gz = new IO::Compress::Gzip '-'
16 or die "gzstream: Cannot open stdout as gzip stream: $GzipError\n" ;
20 or die "gzstream: Error writing gzip output stream: $GzipError\n" ;
24 or die "gzstream: Error closing gzip output stream: $GzipError\n" ;