C:\perlp>perl t.pl
DBD::SQLite::db do failed: no such column: cash at t.pl line 17, <DATA> line 1.
DBD::SQLite::db do failed: no such column: cash at t.pl line 17, <DATA> line 2.
DBD::SQLite::db do failed: no such column: credit at t.pl line 17, <DATA> line 3.
DBD::SQLite::db do failed: no such column: cash at t.pl line 17, <DATA> line 4.
DBD::SQLite::db do failed: no such column: credit at t.pl line 17, <DATA> line 5.
DBD::SQLite::db do failed: no such column: credit at t.pl line 17, <DATA> line 6.