print <<HTML;
Username: <input type="text" size="10" name="username"><br>
Groups: <select name="group">
<option value="1">user
<option values="2">devel
<option values="3">sales
<option values="4">marketing
</select>
...
...
HTML

##</code><code>##

print textfield(
        '-name', 'username',
        '-size', 10
      ),

      popup_menu(
        '-name', 'group',
        '-values', [1, 2, 3, 4],
        '-labels', {
            1, 'user',
            2, 'devel',
            3, 'sales',
            4, 'marketing',
        },
      ),
      ... etc

##</code><code>##

sub afunc {
  my($x, $y) = \@_;
}