use DBI;
 my $dbh = DBI->connect('dbi:DBM:ext=.db'); 
 $dbh->{RaiseError} = 1;
 for my $sql( split /;\n+/,"
     CREATE TABLE test ( user_name TEXT, phone TEXT );
     INSERT INTO test VALUES ('Fred Bloggs','233-7777');
     INSERT INTO test VALUES ('Sanjay Patel','777-3333');
     INSERT INTO test VALUES ('Junk','xxx-xxxx');
     DELETE FROM test WHERE user_name = 'Junk';
     UPDATE test SET phone = '999-4444' WHERE user_name = 'Sanjay Patel';
     SELECT * FROM test
 "){
     my $sth = $dbh->prepare($sql);
     $sth->execute;
     $sth->dump_results if $sth->{NUM_OF_FIELDS};
 }
 $dbh->disconnect;