print $sock "$send   \r\n  ";