my $htmlTEMP ;
sub MakeHTML
{ my $spec = $_[0] ;
$htmlTEMP = "" ;
return &hl(sub{$htmlTEMP .= $_[0] ; }, $spec) ;
}
print MakeHTML([HTML => [BODY =>
[FORM => [LABEL => {for => "user"}, "Who are you?"],
[INPUT => {type => "text", name=> "user"} ]
]
]]);
####