>>465
print SOCK $que;
と
close(SOCK);
の間に
print while(<SOCK>);
を入れて保存→実行
表示されたのをここに貼ってみて