print  $q->header, $q->start_html, $q->h1('foo'), 
        $q->start_form, $wdgt->as_form, $q->hr,
        $q->submit(-name => "action", -value => "submit"),
        $q->end_form, $q->end_html;