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;