Hi

i have the following code:
if(($line!=1) and (@field[0]!='\$')){
print ( "\nTRY TO CONNECT TO DATABASE................\n");

my $dbh = DBI->connect($dsn, $user, $pass);
print ("CONNECTED TO DATABASE\n");

eval
{
print("PERFORM THE SELECT COMMAND\n");
#my $sql = qq{ SELECT * FROM cc_test_cases};
my $sql= qq{select test_case_id, test_case_category, service_desc from cc_test_cases where sncode=$sncode AND zncode=$zncode AND zpcode
=$zpcode};

my $sth = $dbh->prepare( $sql );
$sth->execute( );
};

if ($@) {
print "An error occurred ($@), continuing\n";
next;
}




while(@row = $sth->fetchrow_array()) {
print("MATCH FOUND!\n");
print "$row[0]: $row[1]: $row[2]\n";
push (@field, $row[0].$row[1]);
push (@field,$row[2].'$');
..................................
................................

My rpoblem is that when i am tryying to run this code i get the following error:

Can't call method "fetchrow_array" without a package or object reference at program line 186, <MYFILE> line 3


If i remove the eval command the program works fine.
Any idea why this happens??

Thank you.