stream = freopen("data.txt","w+",PerlIO_stdout());
	ASSERT(stream);
	setbuf(stream,mybuffer);
	memset(mybuffer,0,BUFSIZ);