<%= $head %> <%= $body_header %> Select customer

<%= $error %> <%= $selfurl =~ s/\?.*//; ''; %>

Customer	Select a customer <%= $OUT .= qq(). encode_entities( $customers{$_} ) foreach keys %customers; %>

<%= $body_footer %>