use IO::Comnpress::Deflate = qw(deflate);

my $data = "abcde";
my $outbuffer;
deflate \$data => \$outbuffer;