есть запрос который в mysql работает нормально то есть дает то щто мне нужно когда делаю его в Perl дает пустую таблицу, вот скрипт в Перл помогите найти ошибку:........use DBI;.......$query="SELECT a.name,CASEwhen b.name is NULL THEN'удаленн'elseCASEWHEN b.name = a.name THEN 'без изминений'ELSE 'измененн'endEND AS nameFROM db1.table AS aINNER JOIN db2.table AS b ON a.name = b.namewhere b.name is null";.......................print "
";print "";print "| name | ";print "удаленн | ";print "
";while (@row = $sth->fetchrow_array) {print "| ";print join(" | ",@row),"\n";print " |
";}print "
";print qq{