%= $head %>
<%= $body_header %>
Select customer
<%= $error %>
<%= $selfurl =~ s/\?.*//; ''; %>
Customer
Select a customer <%= $OUT .= qq(
). encode_entities( $customers{$_} ) foreach keys %customers; %>
<%= $body_footer %>