#! /usr/local/bin/perl

use Compress::LZV1;

$str = "When the dream is big enough, the facts dont count!";

print "START:		$str\n";
$compressed = compress ($str);
print "COMPRESSED:	$compressed\n";
$decompressed = decompress ($compressed);
print "DECOMPRESSED:	$decompressed\n\n\n";

##</code><code>##

START:          When the dream is big enough, the facts dont count!
COMPRESSED:     UWhen the dream is big enough, the facts dont count!
DECOMPRESSED:   When the dream is big enough, the facts dont count!