sub print_1 {
   my $text = shift;

return <<EOT;
<p> $text </p>
<form>
 form stuff
</form>

EOT
}