cnt = perl_call_method("sysread", G_SCALAR);