print start_form();
    print p("Document nr: ", textfield("doc_nr"));
    print p("Document name: ", textfield("doc_name"));
    print p("Author: ", popup_menu("author", \@authors));
    print p(submit("DO"), reset("clear"));
    
    print end_form(), hr();
    $data = (param("doc_nr") . param("doc_name") . param("author") . localtime() . "\n");