#!/usr/bin/perl

use strict;
use lib 'd:/Programs/Perl/lib';

use CGI::FormCSVConfig;

my $InFile = '2011CollaborationEnquete.csv';

my $fc = new FormCSVConfig;
my ($pConfig, $pFormItem, $pParams) = $fc->ReadCSVFile($InFile);
if(!defined $pParams) {
	print "Error: Can not read [$InFile].\n";
	exit;
}

foreach my $key (sort keys %$pParams) {
	print "$key: $pParams->{$key}\n" if($key !~ /FormString$/);
}

exit;