my $doc_nr   = param('doc_nr')   || 'undef';
my $doc_name = param('doc_name') || 'undef';
my $author   = param('author')   || 'undef';
my $time     = localtime();

$data = $doc_nr.$doc_name.$author.$time."\n";