my ($r, $w) = winsocketpair();
$w->autoflush(1);

async {
    print $w $_ while defined( $_ = <STDIN> );
}->detach;

while( 1 ) {
    if (
        my ($readers, $writers, $exceptors) =
            IO::Select::select($selector, $selector, $selector)
    ) {
        for( @$readers ) {
            ## See what they have to say
        }
        for( @$writers ) {
            ## Tell'em what they need to know
        }
        for( @$exceptors ) {
            ## Deal with their tantrums
        }
    }
}