Select Code to Download

#!/usr/bin/perl -w
use strict;

my $sth = $dbh->prepare ("SELECT id, body FROM news");
$sth->execute ();
while (my ($news_id, $news_body) = $sth->fetchrow_array()) {
...
    my ($comments) = $sth->fetchrow_array();
    print "$news_id, $news_body, $comments";
}