telnet じゃない

• ref:404 Blog Not Found:perl - telnetコマンドを自作する

すでに指摘されているけど、これ telnet じゃないですよね。手動で TCP のポートをたたいて確認するためのスクリプトとしては使えるかも知れないけど、クライアントから close できないってのは微妙。
あと

# echo 'GET / HTTP/1.0' | perl ptelnet.pl www.dan.co.jp http > http.out

は、空行が入ってないから valid な HTTP Request になってない。