or download this
$ cat newCsv.csv
sid,genotype,dnabl,dnatw12
...
DBD::CSV::st execute failed: Can't locate object method "do_err" via p
+ackage "SQL::Statement::Function::NumericEval" at /pro/lib/perl5/site
+_perl/5.22.0/SQL/Statement/Function.pm line 226, <GEN1> line 2.
[for Statement "SELECT sid, genotype, dnabl, dnatw12 FROM newCsv WHER
+E genotype = 'a' AND (dnatw12/dnabl)<0.5 AND dnatw12 IS NOT NULL"] at
+ test2.pl line 32, <GEN1> line 2.
$