nonblocking.pl

use Mojolicious::Lite;

get '/delay' => sub {
  my $self = shift;
  Mojo::IOLoop->timer(3 => sub {
    $self->render_text('Delayed for 3 seconds.');
  });
};

get '/nodelay' => sub {
  my $self = shift;
  $self->render_text('No delay.');
};

app->start;