<center>
<perl>
$outnach = <<EOF;
</td>
</tr>
</table>
EOF
#bewusst die reihenfolge verdreht :-)
$outvor = <<EOF;
<table cellpadding=6 border=1><tr>
<td bgcolor=9f9f9f>So nur mal zum testen</td><td>Eine ganze Tabelle in eine Var</td>
</tr><tr>
<td>Tja ob das funzt?</td><td>Hier einen Wert=
EOF
out '<center><h2>Dies ist ein TEST</h2></center>';
#hier mal was rechnen oder so
$count=42;
# und jetzt die ausgabe:
out $outvor;
out $count;
out $outnach;
</perl>
<p>So das wars</p>
</center>