my $sth = $dbh->prepare_cached(<<SQL);
    select count(*) as results from database_table
SQL

$sth->execute();

my @results = $sth->fetchrow_array();
print $results[0];