Как прочитать конец файла сценария как файл данных (Perl или любой другой язык)

Question

Я ищу правильный синтаксис для выполнения следующих действий (в Perl, Shell или Ruby):

# variable to access the data lines appended as a file

END_OF_SCRIPT_MARKER

raw data starts here
and it continues.

Answer 1

Perl делает это с __DATA__:

#!/usr/bin/perl

use strict;
use warnings;

while(<DATA>)
{
     print;
}

__DATA__
Text to print
goes here