leak.pl

use 5.10.1;
use strict;
use warnings;

use Mojo::IOLoop;
use Mojo::Server::Daemon;
use Mojo::UserAgent;

my $daemon = Mojo::Server::Daemon->new;
$daemon->start;

for my $i (1 .. 100000) {
  say $i;
  my $ua = Mojo::UserAgent->new;
  Mojo::IOLoop->delay(
    sub {
      my $delay = shift;
      $ua->get('http://127.0.0.1:3000' => $delay->begin);
    },
    sub {
      my ($delay, $tx) = @_;
      say $tx->res->code;
      $ua->get('http://127.0.0.1:3000' => $delay->begin);
    },
    sub {
      my ($delay, $tx) = @_;
      say $tx->res->code;
    }
  )->wait;
}