Select Code to Download

"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"

my $dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\;});
$dbh->{'csv_tables'}->{'info'} = { 'file' => 'test.csv' } or die "Prob
+lem creating table";
...
    $count++;
}
$sth->finish;