if ($res->is_success) {
    print $res->content;
} else {
    warn $res->status_line, "\n";
}