cnt = perl_call_method("read", G_SCALAR);