use Mojo::Base -strict; my $ua = Mojo::UserAgent->new; my $d = Mojo::IOLoop->delay( sub { my $d = shift; $ua->get('http://mojolicious.us/' => sub { say "got response"; $d->begin; }); }, ); $d->wait unless Mojo::IOLoop->is_running;