open(FH, $0);

print "*FH IO slot holds - ", *FH{IO}, $/;

__output__

*FH IO slot holds - IO::Handle=IO(0x8107e4c)