leak3.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;
  $ua->get(
    'http://127.0.0.1:3000' => sub {
      $ua->get('http://127.0.0.1:3000' => sub { });
    }
  );
}