DBI problem

[bage]

Hi, all   I have a problem when using Perl DBI module, below is my code:   - code - use DBI; $dsn = "driver={SQL Server};Server=$DB_SERVER;database=$USED_DB;uid=".$DB_USER.";pwd=".$DB_PASSWD; $dbh = DBI -> connect("dbi:ODBC:$dsn") || die $DBI::errstr; $sth = $dbh -> prepare("SELECT * FROM AAA"); $rs = $sth -> execute; while (@dataref = $rs -> fetchrow_array) {    ... } - code end -   The error message is: Can't call method "fetchrow_array" without a package or object reference at line ..   Why I can't call fetchrow_array method?   Anyone can help me? I very appreciated your help! :)   bage