$ cat 3.pl#!/usr/bin/perluse Mojo::Base;use Mojo::IOLoop;my $cb;$cb = sub { warn 111; Mojo::IOLoop->next_tick($cb)};Mojo::IOLoop->next_tick($cb);Mojo::IOLoop->start;