perl -e 'use DBI;$h = DBI->connect("dbi:ODBC:xxx","xxx","xxx");eval {$h->do("drop table mje")};$h->do("create table mje (a int null)");$s = $h->prepare("insert into mje values(?)");$s->execute(0);$s->execute(undef);$r = $h->selectall_arrayref("select * from mje");foreach (@$r){print "$_->[0]\n" if $_->[0];}'