print $socket $line,$EOL or die;