"field1";"field2";"field3";"field4";"field5";"field6";"field7";
"5/7/2005 6:50:43 AM";1;1;0;"some text 1";"some text 5";"some text 9."
"5/7/2005 5:55:44 AM";1;1;0;"some text 2";"some text 6";"some text 10"
"5/7/2005 5:20:03 AM";1;1;0;"some text 3";"some text 7";"some text 11"
"5/7/2005 5:06:07 AM";1;1;0;"some text 4";"some text 8";"some text 12"

##</code><code>##

my $dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\;});
$dbh->{'csv_tables'}->{'info'} = { 'file' => 'test.csv' } or die "Problem creating table";
my $sth = $dbh->prepare("select * from info") or die "Can't prepare sth: $dbh->errstr\n";
$sth->execute or die "Can't execute the query: $sth->errstr";
my $count = 0;
while (my @row = $sth->fetchrow_array) {
	print "Row: $count&nbsp;&nbsp;";
	print $row[0] . "&nbsp;&nbsp;";
	print $row[1] . "&nbsp;&nbsp;";
	print $row[2] . "&nbsp;&nbsp;";
	print $row[3] . "&nbsp;&nbsp;";
	print $row[4] . "&nbsp;&nbsp;";
	print $row[5] . "&nbsp;&nbsp;";
	print $row[6] . "&nbsp;&nbsp;";
	$count++;
}
$sth->finish;