in reply to Re: Print Current Program Source Code
in thread Print Current Program Source Code

or just: 
open SRC, '<', $0 or die;
print for <SRC>;
close SRC;

[download]

In Section Seekers of Perl Wisdom