#!/usr/bin/perl

use IO::Compress::Deflate qw(deflate $DeflateError);
use strict;

my $input = $ARGV[0] or die 'usage: zdeflate input [output]';
my $output = $ARGV[1] || "$input.deflated";

my $status = deflate $input => $output or die "zdeflate failed: $DeflateError\n";

