use Data::Dumper;
...
my $sql = 'SELECT whatever ...';
print Dumper $sql;
my $sth = $dbh->prepare($sql) or die "prepare failed: ', $DBI::errstr;
...