package TMPL;

sub fodus {
    local $/;
    my $out = <($main::{+(caller)[0]."::"}->{DATA})>;
    # ...
    return $out;
}