$ perl -le 'open TODO, "TODO"; print *TODO{IO}'
    IO::Handle=IO(0x81637f0)