Btw: if you write your dosql the following way, you can use sql parameters and get better error handling/messages, e.g.

my $sql = q~SELECT a,b,c,d FROM table WHERE e=? and f=?~;

my $data = dosql($dbh, $sql, 1, $value1, $value2);

sub dosql {
    my( $dbh, $sqlStatement, $response, @params )= @_;

    # some databases already check the sql or even do
    # something when the prepare is executed
    my $sth = $dbh->prepare($sqlstatement)
      or die "Couldn't prepare SQL statement: $DBI::errstr\n\t$sqlStat
+ement";

    $sth->execute(@params)
      or die "Could not execute MySQL statement: $DBI::errstr\n\t$sqls
+tatement";

    my @results = ();
    if( $response ) {
      while( my @row = $sth->fetchrow_array ) {
        # since @row is only valid within the while loop
        # you can use \@row instead of [ @row ]
        push( @results, \@row );
      } # while
    } # if

    $sth->finish();

    return \@results;
} # dosql
[download]