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

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

print "Content-type: text/html\n\n";
my $p = param('p');

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