select (NS);
$|= 1;
select (NS);

##</code><code>##

use IO::Handle;
# ...
$ns->autoflush();