Select Code to Download

COLA,COLB,VALUE
foo,bar,1
baz,bar,2

#!/usr/bin/perl
use strict;
...
$sth->execute('baz', 'bar');
my @r = $sth->fetchrow_array();
print Dumper \@r;

$ perl ./csvtest.pl
$VAR1 = [];

$ perl ./csvtest.pl
$VAR1 = [
  '1'
];

$ perl -MDBI -e 'DBI->installed_versions'
  Perl            : 5.008008    (i686-linux-thread-multi)
  OS              : linux       (2.6.16-gentoo-r12)
...
1.15
$ perl -MText::CSV_XS -le 'print $Text::CSV_XS::VERSION'
0.32