or download this
my $passed_sql = shift;
my $sql = "SELECT COUNT(*) etc blah blah";
...
print STDERR "\nTrying[3] interpolated: $passed_sql\n";
die if $sql ne $passed_sql; # Might as well ...
my ($total_cols) = $dbh->selectrow_array($sql) or die($dbh->errstr
+);