Tcl		T_PTROBJ
Tcl::Var	T_AVREF
PerlIO *	T_INOUT
