END{
    syswrite $new_socket, "EOF\n";
}