read(SOCKET, $var , 1 , length($var) )