Help for this page
$q->p( "Your name is ", $q->strong("name")),
$q->p({-style=>"text-decortation:underline"}, "Your age is ",$q->textfield(-name=>"age")),
$q->span({-style=>color=>"blue"},$pay_text)),