How do you mean "having problems"?

If it is that you are returning a blank line, your 0 numerical value returned by count might be being printed as a null string. If that's the case, you can force it into a numerical context, for example by print $row[0]+0,"\n";

Update: To get better diagnostics on DBI's behaviors, I would highly recommend modifying your connect statement to the following:

my $dbh = DBI->connect("dbi:ODBC:$dsn",
                       {
                        PrintError => 1,
                        RaiseError => 0,
                        AutoCommit => 0
                       }
                      )
    || die "Couldn't open database";
[download]