Perl の DATA ファイルハンドラ

Perl の場合は、DATA ファイルハンドラとして、__END__ 以後を読み込む機能がある。

while (<DATA>) {
  print;
}

__END__
aaaa
bbbb
cccc