sub print_1
{
my $text = shift;
print <<END;
<p> $text </p>
<form
......
</form>
END
}