gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Mojolicious::Lite;

post '/' => sub {
	my $self = shift;
	$self->render_data($self->req->body, format => 'bin');
};

app->start;