$q->default_dtd('-//W3C//DTD HTML 4.01 Transitional//EN');
print $q->header(),
$q->start_html("DNAT"),
$q->br(), $q->br(),
$q->start_form(),
 $q->start_table({ -boarder => '0' }),
 $q->Tr($q->td($q->radio_group(-name => 'proto',
                               -values => ['tcp','udp'],
                               -rows => 2, -columns => 1)),
 $q->td('Port: ', $q->textfield(-name => 'port')),
 $q->td('IP-Adresse: ', $q->textfield(-name => 'ip')),
 $q->td($q->submit(-name => 'add', -value => 'apply'))),
 $q->end_table(),
 $q->end_form();
 $q->br(), $q->br();