% cat > dbish.txt /format box DROP TABLE IF EXISTS x; CREATE TABLE x (num INT, let CHAR); INSERT INTO x VALUES (1,'a'); INSERT INTO x VALUES (2,'b'); SELECT * FROM x; % perl -MDBI::Shell -e 'DBI::Shell->new("--batch","dbi:DBM:")->run' < dbish.txt;