unpack_sockaddr_in SOCK_ADDR

(Exp1)
  $sockadd = accept(CLIENT, CLIENT_WAITING);
  ($port, $iadd) = unpack_sockaddr_in($sockadd);
  $hostname = gethostbyaddr($iadd, AF_INET);

(Exp2)
  accept(CLIENT, CLIENT_WAITING);
  $sockadd = getpeername(CLIENT);
  ($port, $iadd) = unpack_sockaddr_in($sockadd);
  $hostname = gethostbyaddr($iadd, AF_INET);