<TD COLSPAN=6>
<TABLE CELLSPACING=0 CELLPADDING=0>
<TR>
-% foreach my $phone (qw(daytime night mobile)) {
+% foreach my $phone (qw(daytime night mobile fax)) {
<TD>
<INPUT TYPE="text"
NAME="<% $phone %>"
daytime => 'Day Phone',
night => 'Night Phone',
mobile => 'Mobile Phone',
+ fax => 'Fax Number',
);
</%init>
\ No newline at end of file