DATAと__END__

back 
スクリプト内で

#!/usr/bin/perl

:
:
:
__END__

とすれば、それ以降は処理されない(コメントみたいなもん)
でもって、それ以降の部分は、ファイルハンドル<DATA>で参照することができる

------------------------------
#!/usr/bin/perl

#seek(DATA, 0, 1);
while(<DATA>) {
  my $line = $_;
  chomp $line;
  print $line;
  print "\n";
}

__END__
実行すると
この部分の
文章が
出力される
------------------------------

while で <DATA> を出力できるのは(多分)1回のみなので、
ループなので、複数回処理をしたい場合は、
予め @data = <DATA> として取得しておく必要がある。

seek(DATA, 0, 0); (基点をファイルの先頭に)
とすると、__END__ 以前のスクリプト部分にファイルポインタがセットされるので
ソースコード全てを取得可能
back