55行目の
print $sock "Host: $HostAddr\r\n";

print $sock "Host: $hostaddr\r\n";
にしたら74のように投稿できますた。
perl -cwでSyntax checkしたら一発でわかりましたが。