I think what you're looking for is a quine (a program that displays its own source code without accessing it). Here's an example:

$q=q(print"\$q=q($q);$q";);print"\$q=q($q);$q";
[download]