+#!/usr/bin/env perl
+
+use lib 'lib';
use strictures 2;
use SQL::Abstract::ExtraClauses;
-use Devel::DDCWarn;
+#use Devel::DDCWarn;
warn $ARGV[1];
my ($q, @bind) = $sqlac->${\$ARGV[0]}(@args);
-Dwarn [ Q => @$q ];
-
-Dwarn [ $q->format, @bind ];
+print STDERR $q->format."\n";
+Dwarn [ @bind ];