すいません。ちょっと質問です。
http://ai-line.com/linux/ddns.html#7
これを使って ddo.jp のIPアドレス更新をしたいのですが，
ddo.jp のフリードメインの仕様が変更になったせいか，このままでは
使用できませんでした。足りない頭で perl をいじってみたのですがそれでも
エラーが発生するのでどなたかご教示ください。

変更したところは一番上3つ
$server_name = 'free.ddo.jp';
$username = 'mydomainname';
$password = 'mydomainpassword';
と，さらに
# IPアドレスチェック先
$ip_view_host = 'info.ddo.jp';
$ip_view_file = '/remote_addr.php';
サブルーチン内
# ポート番号・IPアドレスを変換
$sock_addr = pack_sockaddr_in(80,219.166.xxx.xxx); （←free.ddo.jp の IP アドレス）
# WWWサーバにHTTPリクエストを送る
print SOCKET "GET info.ddo.jp/remote_addr.php/ HTTP/1.0";
print SOCKET "HOST: info.ddo.jp:80";
の部分です。具体的に症状は
$new_ip = <SOCKET>　のところで正しく IP アドレスが拾えていないようで，
その後ろの unless ($new_ip =~ /[\d]+\.[\d]+\.[\d]+\.[\d]+/){print "ERROR\n";exit;}
って所で"ERROR"が出てしまいます。ですから
「# WWWサーバにHTTPリクエストを送る」ところから「# ボディ部分を受け取る」ところで
正しく動作していないと思います。自分でIPアドレスを入れた場合，つまり
$new_ip = "xxx.xxx.xxx.xxx" ;
とすると正常に IP アドレスが更新できます。
続き