in reply to Program prints out it's own content
The idea represented by this problem is called "quining". Super Search for 'quine' will turn up some Perl examples. Googling "quine" will get you more code and theory.
After Compline,Zaxo