use Mojo::UserAgent;

# Fine grained response handling (dies on connection errors)                                                                  
my $ua  = Mojo::UserAgent->new;
#my $res = $ua->get('mojoliciousness.org/perldoc')->result;                                                                   
my $res = $ua->get('mojoliciousness.org/perldoc');

if (defined ($res->original_remote_address))
{
    if    ($res->result->is_success)  { print $res->result->body }
    elsif ($res->result->is_error)    { print $res->result->message }
    elsif ($res->result->code == 301) { print $res->result->headers->location }
    else                   	      { print 'Whatever...' }

    print "remote address: ".$res->original_remote_address."\n";
}

else { print "failed to resolve url ...\n"; }

print "Got to the end\n";