use strict;
use warnings;
use DBI;

open my $fOut, '>', "delme" or die "Can't create deleme.txt: $!\n";
print $fOut <<FILE;
Line,Name,Colour,Comment
1,Fred,Blue,"Comment with a comma, and stuff."
2,Joe,Green,No comma so no need for quotes
3,Bob,Red,"""A comma, and quotes"""
4,Sam,Yellow,"Penultimate line, but
split across two input lines"
5,Bill,Violet,And an ordinary line to finish
FILE
close $fOut;

my $dbh = DBI->connect('dbi:CSV:', '', '', {f_file => 'delme'});
my $sth = $dbh->prepare("select * from delme");

$sth->execute();

while (my $row = $sth->fetchrow_hashref()) {
    print "$_: '$row->{$_}'\n" for sort keys %$row;
    print "\n";
}