use Tie::DATA;

    foreach(keys %DATA)
    {
        print "$_ = $DATA{$_}\n";
    }

    __DATA__
    
    __foo__

    yadda yadda yadda...

    __bar__

    ee-aye ee-aye oh

    __baz__
    
    woof woof