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


in reply to Re: (jeffa) GOLF Re: Quine??
in thread Quine??

#        1         2
#2345678901234567890
@ARGV=$0;print<>

[download]

Or... for unix: 
#        1         2
#2345678901234567890
system cat,$0

[download]

GreetZ!,

print "profeth still\n" if /bird|devil/;

In Section Cool Uses for Perl