#!/usr/local/bin/perl

use strict ;
local ($^W) = 1; #use warnings ;
use IO::Compress::Bzip2 qw(:all);

bzip2 '-' => '-'
  or die "bzstream: $Bzip2Error\n" ;

