print start_form(-action=>'mail.pl'),
      table(
        Tr(
            td("Name"),
            td( textfield( -name => 'name') )
        ),
        Tr(
            td("age:"),
            td( textfield( -name => 'age') )
        ),
        Tr( td( submit('send') ), ),
        'end_form',
      );