http://www.perlmonks.org?node_id=785303


in reply to Re: Why isn't this a quine?
in thread Why isn't this a quine?

might as well make it psuedo-palandromy 

hossman@coaster:~$ cat monk.pl 
seek DATA, 0, 0;
print <DATA>
__DATA__
print <DATA>
seek DATA, 0, 0;
hossman@coaster:~$ perl monk.pl 
seek DATA, 0, 0;
print <DATA>
__DATA__
print <DATA>
seek DATA, 0, 0;

[download]

In Section Seekers of Perl Wisdom