--- TokyoDystopia.xs	2008/08/18 17:27:11	16
+++ TokyoDystopia.xs	2008/08/18 17:45:56	17
@@ -124,3 +124,20 @@
 OUTPUT:
 	RETVAL
 
+
+void
+tcidbget(idb, id)
+	void *	idb
+	int	id
+PREINIT:
+	char *vbuf;
+PPCODE:
+	vbuf = tcidbget(idb, id);
+	if(vbuf){
+	  XPUSHs(sv_2mortal(newSVpvn(vbuf, strlen(vbuf))));
+	  tcfree(vbuf);
+	} else {
+	  XPUSHs((SV *)&PL_sv_undef);
+	}
+	XSRETURN(1);
+