Select Code to Download

$ c:/perl/bin/perl -we'select((select(TO_CHILD), $| = 1))[0]);'
Not enough arguments for select system call at -e line 1, near "))"
...

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