print $socket $2,$EOL if ( $2 ne $kill );