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";