>>49
54行目
$query = $ENV{"QUERY_STRING"};
　↓
read(STDIN, $query, $ENV{CONTENT_LENGTH})

POSTする側はHTMLなので好きに改造してください。
ただし構造上GETじゃないと使えないと思うけど。