use strict;
use CGI qw( :all );

param( 'datum', time() );
param( 'text', 'Das ist der neue Text');

print start_form( 'form1' ),
    hidden( 'datum'),
    hidden('username'),
    
    'Datum: ', textfield('datum'),
    'Text: ', br(), textfield( 'text' ),
    submit(),
    end_form();