thing.pl

#!/usr/bin/env perl
use Mojolicious::Lite;
use POSIX 'strftime';

my $ua = Mojo::UserAgent->new;

get '/' => sub {
  my $c = shift;

  $c->delay(
    sub {
      $ua->get('https://duckduckgo.com/?q=test&format=json' => shift->begin);
    },

    sub {
      $c->render(json => {results => pop->res->json('/AbstractURL')});
    },
  );
};

app->start;