#!/usr/bin/perl

use warnings;
use strict;

use SQL::Abstract;

my $a = SQL::Abstract->new;
my ( $stmt, @bind ) = $a->where( { 'department' => 140, 'task' => 'qa' }, ['id ASC'] );

print "Das SQL-Statement lautet: $stmt\n";
print "Die bind-Werte sind: " . join( ',', @bind ) . "\n";