<% $label %> <%init> my($name, $value, $label, $format) = @_; $format = "%m/%d/%Y" unless $format; $label = $name unless $label;