perl+sql

$st = $dbh->prepare("select * from my_huxor_table");
$st->execute();
$st->finish();
if ( $st->rows > 0 )
{
print "Fuckin right !!! \n";
}
else
{
print "No data ! OMG ! \n";
}

А вообще perldoc DBI