./perl -e '$a = ${*STDOUT{IO}}'
Bizarre copy of IO in sassign at -e line 1.