/* keys %head */

% foreach (keys %head) {
<% $_ %> { font-size: <% $head{$_} %>pt; color: <% $colours{'head'} %>; \
%   if ($isNetscape) {
font-family: <% $font_family %>; padding-left: 10px; padding-top: 10px; \
%   } else {
margin-left: 10px; margin-top: 10px; \
%   }
}
% }

/* keys %text */

% foreach (keys %text) {
<% $_ %> { font-size: <% $text{$_} %>pt; \
%   if ($isNetscape) {
color: <% $colours{'text'} %>; font-family: <% $font_family %>; padding-left: 10px; \
%   }
%   if (($isIE) && ($_ eq 'P')) {
line-height: <% $line_height %>pt; margin-left: 10px; \
%   }
%   if ($_ eq 'UL') {
list-style-type: circle; \
%   }
}
% }
%head = (
    'H1'            => $font_size + 6,
    'H2'            => $font_size + 4,
    'H3'            => $font_size + 2,
    'H4'            => $font_size,
    'H5'            => $font_size
);

%colours = (
    'text'          => '#FFFFFF',
    'head'          => '#99CCFF',
    'link'          => '#CCCCCC',
    'vlink'         => '#999999',
    'alink'         => '#99CCFF',
    'list'          => '#99CCFF',
    'smalllist'     => '#99CCFF',
    'listheaders'   => '#99FFFF',
    'highlight'    => '#FFFFFF',
    'data'          => '#FF9933'
);