Select Code to Download

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

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