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