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;
}

##</code><code>##

require 'vcol-utils.pl'

##</code><code>##

use CGI;
$cgi = new CGI;
use lib('.');
print $cgi->h1("Test1");
require 'vcol-utils.pl';
print $cgi->h1("Test2");