Select Code to Download

#!/usr/bin/perl -w
use strict;
...

print decode_base64($fetched_data);
1;

.schema test_blob
CREATE TABLE test_blob( a text , b text , Bindata BLOB );
sqlite> select * from test_blob;
foo|doog|QUJDAERFRg==

perl -e "$lf = @ARGV;$sql= 'insert into BLAH (' . eval{join ',',@ARGV 
+} . ') VALUES (' . eval{join ',', split//,'?' x $lf} . ')'; print $sq
+l;" DOGS CATS FISH ANIMALS TRIKES KITES
insert into BLAH (DOGS,CATS,FISH,ANIMALS,TRIKES,KITES) VALUES (?,?,?,?
+,?,?)