perl quine