sub getVcolFileNames{
    my @vcolFileArray;
    opendir DH, $vcol_dir or die "Cannot open $vcol_dir: ($!)\n";
	foreach $file (readdir DH) {
		next unless $file =~ /\.vcol$/;
		push @vcolFileArray, $file;
		print $cgi->p("$file");
	}
	closedir DH;
    return @vcolFileArray;
}