my $sql = q!LOAD DATA INFILE 'c:/temp/data.csv' INTO TABLE test3
            FIELDS TERMINATED BY ','
            OPTIONALLY ENCLOSED BY '"'
            LINES TERMINATED BY '\r\n'!;
            
$dbh->do($sql);