Странная проблема.
use Mysql
При получении $sth->fetchrow - все нормально
а вот при $sth->fetchcol(0) - вылетает ошибка DBD::mysql::st fetchrow_arrayref failed: fetch() without execute() at /usr/local/lib/perl5/site_perl/5.8.8/mach/Mysql/Statement.pm line 35.
Все мозги уже сломал. На другом хостинге все работает...

какой сервер ?
И вообще, лучше напишите тут: https://ruweb.net/support/ , указав номер услуги(если их несколько), путь до скрипта - локальный, на сайте, что должно получиться в итоге и как это можно будет проверить.