sub foo
{
    return "some output from foo\n";
}

    print <<'    EOPAGE';

    some stuff
    some more stuff
    EOPAGE

print foo();

    print <<'    EOPAGE';
    yet more stuff
    EOPAGE