diff -Npurd dbidbdcsvfext/mycsvdb/cats.csv dbidbdcsvfext/mycsvdb/cats.
+csv
--- dbidbdcsvfext/mycsvdb/cats.csv    1969-12-31 16:00:00.000000000 -0
+800
+++ dbidbdcsvfext/mycsvdb/cats.csv    2016-05-27 15:54:59.156250000 -0
+700
@@ -0,0 +1,3 @@
+meow,meow,meow
+meow,meow,meow
+meow,meow,meow
diff -Npurd dbidbdcsvfext/mycsvdb/dogs.csv dbidbdcsvfext/mycsvdb/dogs.
+csv
--- dbidbdcsvfext/mycsvdb/dogs.csv    1969-12-31 16:00:00.000000000 -0
+800
+++ dbidbdcsvfext/mycsvdb/dogs.csv    2016-05-27 15:55:09.328125000 -0
+700
@@ -0,0 +1,3 @@
+woof,woof,woof
+woof,woof,woof
+woof,woof,woof
diff -Npurd dbidbdcsvfext/yip.pl dbidbdcsvfext/yip.pl
--- dbidbdcsvfext/yip.pl    1969-12-31 16:00:00.000000000 -0800
+++ dbidbdcsvfext/yip.pl    2016-05-27 16:06:18.500000000 -0700
@@ -0,0 +1,20 @@
+#!/usr/bin/perl --
+use strict;
+use warnings;
+use Path::Tiny qw/ path /;
+use Data::Dump qw/ dd /;
+use DBI;
+use DBD::CSV;
+
+my $dbh = DBI->connect(
+    "dbi:CSV:",undef,undef,
+    {
+        RaiseError => 1,
+        f_dir => path('mycsvdb')->realpath,
+        f_ext => ".csv/r",
+    });
+
+#~ dd( $dbh->selectall_hashref( 'select * from cats limit 1' ) );
+#~ dd( $dbh->selectall_hashref( 'select * from dogs limit 1' ) );
+dd( $dbh->selectall_arrayref( 'select * from cats limit 1' ) );
+dd( $dbh->selectall_arrayref( 'select * from dogs limit 1' ) );
[download]