HTML::TreeBuilderによるパース（Titleの取得）
ここでは、取得したHTTPメッセージのbody部分に含まれるHTMLを解析してタイトルを取り出す方法を説明したいと思います。
HTTPクライアントサンプル
以下にHTTP::LiteとHTTP::TreeBuilderを利用したクライアントを示します。
#!/usr/bin/perl
use HTTP::Lite;
use HTML::TreeBuilder;
$http = new HTTP::Lite;
# URL部分を変更して下さい
$req = $http->request("http://www.hogehogeURL.com/") || die $!;
$body = $http->body();
$tree = HTML::TreeBuilder->new;
$tree->parse($body);
$tree->eof();
print $tree->find("title")->as_text;
exit;
