Select Code to Download

$sth  = $dbh->prepare 
        (qq{SELECT article_title, article_author,
...
$sth->bind_col (3, \$article_date);
$sth->bind_col (4, \$article_body);
$sth->fetch;