my $dbh = DBI->connect("dbi:ODBC:test", 
{ 'AutoCommit' =>1, 'RaiseError' =>1}) || die "Error connecting: '$DBI::errstr'"; 
my $sql =" SELECT * FROM Client WHERE clientid = 3 OR CITY = 'ss'";

my $sth = $dbh->prepare($sql); 
$sth->execute || 
die "Could not execute SQL statement ... maybe invalid?"; 

die "Error connecting: '$DBI::errstr'"; 

my $rows = $dbh->selectall_arrayref($sql) || die $dbh->errstr; 
if (@$rows){
	foreach my $row(@$rows){ print "@$row\t\n";}}
	 else {print "No matches found";}