fasthello.pl

#!/usr/bin/env perl
use Mojo::Base 'Mojolicious';

sub handler {
  my $tx = pop;
  my $res = $tx->res;
  $res->code(200);
  $res->body('Hello World!');
  $tx->resume;
};

__PACKAGE__->start;