Help for this page

Select Code to Download

Select or download this

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