print "\n\nPORT: ",   ${$mech->target()}{transport}{port},"\n",
	"IS CONNECTED: ",${$mech->target()}{transport}{is_connected},"\n",
	"LISTENER: ",${$mech->target()}{transport}{listener},"\n",
	"TAB: ",${$mech->target()}{transport}{tab},"\n";

# gives
PORT: 9222
IS CONNECTED: 1
LISTENER: HASH(0x498a420)
TAB: HASH(0x4bfbe78)