&DISP_HTML(&POPULATE_TEMPLATE(&READ_RECORD("/var/www-ssl/html/dartcart/o_summary.html"),\%in))

##</code><code>##

sub POPULATE_TEMPLATE($%;$) {

    # Arguments: <'template_string'> <Hash_ref> <'option word'>
    # Prototype: scalar, hash ref., scalar
    # Return: scalar

    # Reads a formated template string.
    # This string should contain hash key names bracketed by percent signs (e.g. %name% ).
    # Associated values in the referenced hash are substituted 'in-place'.
    # 
    # The 'option word' = raw disables the tag cleanup.  Used in debugging.

    my ($first, $last, $template_string, @message_block, %internal);

    $template_string = $_[0] 
    %internal = %{$_[1]};
     ...