in reply to Program prints out it's own content

Well, if you can use seek, here you go... *Smiles* 

seek(DATA,0,0);
while(<DATA>)
{
  print;
}

__DATA__

[download]

In Section Seekers of Perl Wisdom