--- /dev/null
+#!/usr/local/bin/perl
+
+use strict ;
+use warnings ;
+use IO::Compress::Gzip qw(gzip $GzipError);
+
+gzip '-' => '-', Minimal => 1
+ or die "gzstream: $GzipError\n" ;
+
+#exit 0;
+
+__END__
+
+#my $gz = new IO::Compress::Gzip *STDOUT
+my $gz = new IO::Compress::Gzip '-'
+ or die "gzstream: Cannot open stdout as gzip stream: $GzipError\n" ;
+
+while (<>) {
+ $gz->write($_)
+ or die "gzstream: Error writing gzip output stream: $GzipError\n" ;
+}
+
+$gz->close
+ or die "gzstream: Error closing gzip output stream: $GzipError\n" ;