print "Content-type: text/html\n\n";

##</code><code>##

use CGI;

my $q = CGI->new;

print $q->header;

##</code><code>##

use Mojolicious::Lite;

get '/' => sub {
  my $c = shift;
  $c->render(text => '') 
};

app->start;