Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl -w
use strict;
```

Select or download this

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";
}