binmode $sock;