&do_code("TEST_01"); # Einfügen Programm-Code in Content

sub do_code
   {
    my ($work_code_kz) = @_;

    get "co_code_kz==$work_code_kz", "$gv_codefile";  # Daten holen
    ......

    out "<!-- start do_code -->\n";
    &do_subhead("$co_headline");        # Ausgabe Content-SubHeadline
    out "$co_code";
    out "<!-- end do_code -->\n";
       }
   }