out<<EOF;

EOF
wobei die Anfangs- und Endklammer jeweils geschweifte sind. Das geht übrigens auch mit Aufrufen von Subs.
Du kannst auch vor dem EOF-Block ne Variable zuweisen und die dann einsetzen, in etwa so:
$a_datum = datum("$Termin", "kurz");

<td>$a_datum</td>