$ perl -wle'$x = *STDOUT{IO}; print for $x, map \*$x, 1..10'
IO::Handle=IO(0x10164ce0)
GLOB(0x10141190)
GLOB(0x101412f8)
GLOB(0x10167d4c)
GLOB(0x10167d70)
GLOB(0x10167d94)
GLOB(0x101410ac)
GLOB(0x10167e54)
GLOB(0x10167e78)
GLOB(0x10167e9c)
GLOB(0x10167ec0)