while (<$sock>) {
			$sock_string = $_;
			last;
		}