$ c:/perl/bin/perl -we'select((select(TO_CHILD), $| = 1))[0]);'
Not enough arguments for select system call at -e line 1, near "))"
syntax error at -e line 1, near ")["
Execution of -e aborted due to compilation errors.

$ c:/perl/bin/perl -we'select((select(TO_CHILD), ($| = 1))[0]);'
Name "main::TO_CHILD" used only once: possible typo at -e line 1.