Select Code to Download

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

use CGI;

my $q = CGI->new;

print $q->header;

use Mojolicious::Lite;

...
};

app->start;