my @files = <"$vcol_dir/*.vcol">;
print map $cgi->p($_), @files;