# assume this is a snippet from a fully functional, declared, stricted script

my $buffer;

$buffer .= "content\n<br>\n";

#or for long sets:
$buffer .= <<END
   Content
   <br>
   More content
   <br>
END

##</code><code>##

#!/usr/bin/perl -t
use strict;
include subroutines.pl;  # I always put my subs for webapps in one place...and not in the main script.

my $header = getheader();
my $footer = getfooter();
my $content = getcontent();  # This is where you'd run a bunch of checks to see what you actually need

print $header;
print $content;
print $footer;

#eof