<% $start %><% $state %> Enter your name: <% $field{name}{field}.$field{name}{comment} %> Select your <% $field{color}{label} %>: <% my $ret = ''; for (@{$field{color}{options}}) { if (ref $_) { $ret .= qq( $_->[1]\n); } else { my $chk = $_ eq $field{color}{value} ? 'selected="selected"' : ''; $ret .= qq( $_\n); } } $ret; %> <% my $ret = "$field{sex}{label} = "; for (@{$field{sex}{options}}) { $ret .= qq($_->[1]
); } $ret; %> FYI, your dress size is <% $field{size}{value}.$field{size}{comment} %>
<% $submit %> <% $end %>