use strict;
use warnings;

use DBI;

my $dbh = DBI->connect(
    'dbi:SQLite:dbname=test.db',
    '', '',
    { PrintError => 0, RaiseError => 1, AutoCommit => 1 },
);

my $sth = $dbh->prepare("SELECT 1 FROM dual");

my @x = $sth->fetchrow_array;
$sth->finish;
print "@x\n";

##</code><code>##

:!perl test.pl
dbih_setup_fbav: invalid number of fields: -1, NUM_OF_FIELDS attribute probably not set right at test.pl line 14.

shell returned 2