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

    print <<'    EOPAGE';

    some stuff
    some more stuff
    EOPAGE

print foo();

    print <<'    EOPAGE';
    yet more stuff
    EOPAGE


##</code><code>##

--------------------------------------
#!/usr/bin/perl
Here's all my perl code
where I set my variables and do my logic

print <<EOP;
 here's all my html where I put in my $vars and @foos
EOP
---------------------------------------