Fix socket problem

now $peer is got from recv()

Signed-off-by: Hiroshi Miura <miurahr@linux.com>