use Mojolicious::Lite;

my $req;
$req = sub {
  my ($c, @q) = @_;
  my $q = shift @q;
  $c->app->log->debug($q);
  $c->delay(
    sub {
      my $delay = shift;
      $c->ua->post('https://metacpan.org/search' => form => {q => $q}, $delay->begin);
    },
    sub {
      my ($delay, $tx) = @_;
      return $tx->error->{message}
        if $tx->error;
      return $c->$req(@q)
        if @q;
      return $tx->res->body;
    },
  );
};

get "/" => sub {
  my $c = shift;
  $c->stash(rq => $c->$req('foo', 'bar'),);
}=>'index';

app->start;


__DATA__
@@ index.html.ep
<%= $rq %>