# now write to the file

open(OUT, ">/u001/data/slatrk/data/comments.dat");
foreach my $p (param()) {
   print OUT param($p) . "\n";
}
print OUT "\n";
close(OUT);

##</code><code>##

# Extraction Process
 sub first_process {
	$data_dir="/u001/data/slatrk/data";
	open(F1,"<$data_dir/comment_job.config") || die "Cannot open file1:$!\n";
	open(F2,"<$data_dir/comments.dat") || die "Cannot open file2:$!\n";
	while(<F1>){
	  chomp;
	  chomp(my $f2=<F2>);
	  push (@comment, $_ . "|" . $f2 . "\n");
	}
	}

        push(@rows,$q->th(['APPLICATION', 'COMMENT']));
        &first_process;

		foreach (@comment) { #array starts here
		($jobname, $comment)= split /\|/;
		push(@rows,$q->td([$jobname, '<textarea>'.$comment.'</textarea>']));
		}#array ends here

print qq {<div id='container'>};
    print $q->table(
        {-cellpadding => 3},
        Tr(\@rows)
    );