#!/usr/bin/perl 

use strict;
use warnings;
use Compress::LZF qw(:compress);


my $contents = q(
A123456789 123456789 123456789 123456789 123456789 123456789
B123456789 123456789 123456789 123456789 123456789 123456789
);
print "-" x 60;

my $compressed = compress($contents);
my $decompressed = decompress($compressed);
print $decompressed;