test.pl

get('http://mojolicious.org')->then(
  sub {
    my $mojo = shift;
    say $mojo->res->code;
    return get('http://metacpan.org');
  }
)->then(
  sub {
    my $cpan = shift;
    say $cpan->res->code;
  }
)->catch(
  sub {
    my $err = shift;
    warn "Something went wrong: $err";
  }
)->wait;