cps.pl

use Mojo::Base -strict;
use Devel::Cycle;
use Mojo::UserAgent;

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

$ua->get('mojolicio.us' => sub {
  my ($ua, $tx) = @_;
  say $tx->res->code;
  $ua->get('mojolicio.us' => sub {
    my ($ua, $tx) = @_;
    say $tx->res->code;
    Mojo::IOLoop->stop;
  });
});
find_cycle $ua;
Mojo::IOLoop->start;

# $ perl cps.pl
# 200
# 200