Select Code to Download

SELECT users.username FROM users, drivers WHERE users.userid=drivers.u
+serid AND drivers.name="John"

my $sql = SQL::Abstract->new;
my($stmt2, @bind2) = $sql->select("users, drivers", ["users.username"]
+, {"drivers.name" => "John"});

$stmt2 = "SELECT users.username FROM users, drivers WHERE ( drivers.na
+me = ? )"
@bind2 = ("John")

my($stmt2, @bind2) = $sql->select("users, drivers", ["users.username"]
+, {"drivers.name" => "John","users.userid" => "drivers.userid"});

$dbh->select({
    fields=>'*',
...
    join=>'foo.id=bar.foo_id',  ## <--- HERE
    where=>{'foo.dollars',['>',30]}
    });