#!/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"; }