先生！現在開いているページのタイトルを取得したいんですけど、どうすればいいですか？
ミクシィチェックのモバイル版が、ページのタイトルを求めてきて困ってます…。
http://developer.mixi.co.jp/connect/mixi_plugin/mixi_check/spec_mixi_check

<form action="http://m.mixi.jp/share.pl?guid=ON" method="POST" >
<input type="hidden" name="check_key" value="xxxxxxxx" />
<input type="hidden" name="title" value="★ここを<!--#include virtual="title.php"-->みたいなので取得したい★" />
<input type="hidden" name="primary_url" value="★現在のURLhttp://example.com/" />
<input type="hidden" name="mobile_url" value="★現在のURLhttp://example.com/" />
<input type="submit" value="mixiﾁｪｯｸ" />
</form>

現在開いているURLは$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI']で表示するだけなんですが、
htmlの<title></title>に挟まれた文字を持ってきて表示するというのが出来ないです。
↓このperlスクリプトをphpに書き直したり改造したりして、何とかならないものでしょうか？
sub PageTitle {
local($fname) = @_;
local($result);

if (!open(FILE, $fname)) { &ShowError; }
while (<FILE>) {
if (m{((?i)<title>(.+)</title>)}) {
$result = $2;
last;
}
}
close(FILE);
($result eq '') ? 'unknown' : $result;
}