use Compress::LZF;
use Compress::LZF_PP;
use strict;

my $contents = q{
A123456789 123456789 123456789 123456789 123456789 123456789
B123456789 123456789 123456789 123456789 123456789 123456789
};
print STDERR $contents;
my $compressed = Compress::LZF::compress($contents);
my $uncompressed = Compress::LZF_PP::decompress($compressed);
print STDERR "----------------------------------";
print STDERR $uncompressed;

##</code><code>##

 
A123456789 123456789 123456789 123456789 123456789 123456789
B123456789 123456789 123456789 123456789 123456789 123456789
----------------------------------
A123456789 123456789 123456789 123456789 123456789 123456789
B6789 123456789 123456789 123456789 123456789 1234A123456789