academic perl exercise...

["Schlough, Mark (NM IT)" <Mark.Schlough@nmb.norwest.com>]

Hi,
A friend challenged me to write a program that prints the entire source
code of the program. However, it cannot be the trivial example of saying
program myprog.pl being:
#!/usr/bin/perl;
OPEN(<FILE>, >>myprog.pl)
while(<FILE>) { print ; }


Any ideas?

Mark