#!/usr/bin/perl -w
use strict;
use DBI::Shell;
my $str="   /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;
";
open STDIN, '<', \$str;
DBI::Shell->new('--batch','dbi:DBM:')->run;