#!/usr/bin/perl

use IO::Uncompress::Inflate qw(inflate $InflateError);
use strict;

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

my $status = inflate $input => $output or die "zinflate failed: $InflateError\n";

