use strict;
use warnings;

my $row = [ "input", "format", "description", "recdate", "cabinet", "folder" ];

print <<"DOC";
[DOCUMENT]
INPUT=$$row[0]
FORMAT=$$row[1]
DESCRIPTION=$$row[2]
RECDATE=$$row[3]
DELETEINPUT=NO
NODE_ID=1
VOLUME_ID=1


[CBNTFLDR]
CABINET=$$row[4]
FOLDER=$$row[5]

[USER_DEFINITIONS]
Freq:Daily Application:
DOC
print "\n";