Multiplexing filehandles with select() in perl