#!/usr/bin/perl

use strict;
use warnings;
use SQL::Abstract;

my $sql = SQL::Abstract->new;

my @fields = ('id', 'name');
my %where = (id => 15);

my($sth, @bind) = $sql->select('users', \@fields, \%where);

print $sth,"\n";