#!/usr/bin/perl
use strict;
use warnings;

use CGI qw/param/;
use Compress::LZ4;

print "Content-type: application/x-binary\n\n";
#print "Content-Transfer-Encoding: binary\n\n";

my $p = param('p');

#binmode(STDOUT);

if ($p =~ m/^[A-Za-z0-9 ]+$/ && length($p) < 1024 ) {
        print lz4_compress($p);
} else {
        print "Invalid characters.\n";
}