app.pl

#!/usr/bin/env perl

use Dancer2;
use Coro::AnyEvent;

set logger => 'console';
set log => 'core';

get '/:foo' => sub {
    Coro::AnyEvent::sleep 1;
    return params->{'foo'};
};

dance;

start.sh

plackup --port 3000 --server Corona ./app.pl

thread1.sh

while true; do wget -q -O - 'http://localhost:3000/bar';echo; done

thread2.sh

while true; do wget -q -O - 'http://localhost:3000/foo';echo; done