use strict;
use DBI;
use File::Temp;

my $temp = File::Temp->new;
my $dbh = DBI->connect('dbi:SQLite:dbname='. $temp->filename, '', '');
$dbh->do("create table sample1 (id number )");
$dbh->do("INSERT INTO sample1 (id) VALUES (1)");

sub selectrow_array {
    goto &{ $dbh->can('selectrow_array') };
}

my $statement = "SELECT 'a', 'b', 'c' FROM sample1";
warn $dbh->selectrow_array($statement);
warn selectrow_array($dbh, $statement);

##</code><code>##

abc
a