getData{ my $passed_sql = shift; my $sql = "SELECT COUNT(*) etc blah blah"; die "I am not passing expected SQL! I got '$passed_sql'\n" unless $passed_sql eq $sql; my ($total_cols) = $dbh->selectrow_array($sql) or die($dbh->errstr);