#!/usr/bin/perl -w
# Pure-perl LZW implementation. The implementation is Copyright 2003
# by Rocco Caputo. Where applicable, all rights are reserved. The
# author makes no claim of rights to the LZW algorithm, which is
# patented by UniSys, or something.
#
# This implementation is being released under the same terms as Perl
# itself.
use warnings;
use strict;
my $original_char_stream = <