Current Directory: /usr/share/doc/perl-IO-Compress/io/bzip2
Viewing File: /usr/share/doc/perl-IO-Compress/io/bzip2/bzstream
#!/usr/bin/perl
use strict ;
use warnings ;
use IO::Compress::Bzip2 qw(:all);
bzip2 '-' => '-'
or die "bzstream: $Bzip2Error\n" ;