Does DBD::CSV support select * from Print? That might work (if you do not mind getting columns you do not need), although I cannot test it, your sample fails for me with a rather cryptic error:

DBD::CSV::st execute failed: Error while reading file /tmp/c/Print.csv
+: Bad file descriptor at /usr/share/perl5/DBD/CSV.pm line 210, <GEN0>
+ chunk 1.
[download]