12345678 #!/usr/local/bin/perluse strict ;use warnings ;use IO::Compress::Bzip2 qw(:all);bzip2 '-' => '-' or die "bzstream: $Bzip2Error\n" ;
#!/usr/local/bin/perl
use
strict ;
warnings ;
IO::Compress::Bzip2
qw(:all)
;
bzip2
'-'
=>
or
die
"bzstream: $Bzip2Error\n"