use Mojo::UserAgent;
use Mojo::IOLoop;

my $ua = Mojo::UserAgent->new;

# --- Worst nodes -------------------!
# --- Best nodes --------------!     |
# --- Last hour CB -----!      |     |
#                      \/     \/    \/
foreach my $node ( qw( 596792 9066 9488 ) ) {


  $ua->get( "http://perlmonks.org/?node_id=$node"  =>   sub {

    my( $ua, $mojo ) = @_;

    print $mojo->req->url,  " => <<<\n", 
          $mojo->res->text, "\n>>>\n\n\n";

  } );


}

Mojo::IOLoop->start unless Mojo::IOLoop->is_running;