select (SERVER); $| = 1; select (STDOUT);