[MacPerl] self-reproducing program

[Richard Cook]

Anyone got examples of Perl programs that can output themselves?

#self-reproducing program
seek DATA, 0, 0;
print <DATA>;
__DATA__
http://www.acm.org/classics/sep95/

-Richard