D:\>perl -e"warn *STDOUT; warn \*STDOUT; warn *STDOUT{GLOB};
*main::STDOUT at -e line 1.
GLOB(0x2267ec) at -e line 1.
GLOB(0x2267ec) at -e line 1.

D:\>