Select Code to Download

SQL> create table mje (a int, b varchar(10) null default null);
SQLRowCount returns -1
...
+------------+-----------+
SQLRowCount returns -1
3 rows fetched

perl -MDBI -le 'my $h = DBI->connect; use Data::Dumper; my $r = $h->se
+lectall_arrayref("select * from mje");print Dumper($r);'
$VAR1 = [
...
            undef
          ]
        ];