Emulate __DATA__ section for mod_perl Registry/PerlRun script, and so on.

data-section-emulate.pl

#!/usr/bin/perl
# Emulate __DATA__ section for mod_perl Registry/PerlRun script, and so on.

use strict;
use warnings;

### In tail of this file, its "data" exists and defines inside BEGIN { ... } block.
my $DATA;

open \*DATA, '<', \$DATA;

### can I read fake DATA filehandle?
while (<DATA>) {
    print "DUMMY_DATA_SECTION: $_";
}

BEGIN { $DATA = <<__FAKE_DATA__; }
Hello! Data!
This is emulate DATA section.
This way can be used on mod_perl!
__FAKE_DATA__