#!/usr/bin/perl

use strict ;
use warnings ;
use IO::Compress::Xz qw(:all);

xz '-' => '-'
  or die "xzstream: $XzError\n" ;