Select Code to Download

sub show_news {
  my ($dbh, $article_id) = @_;
  my $sth = $dbh->prepare("...");
  $sth->execute($article_id);
}

$dbh->disconnect;

$sth    = $dbh->prepare(...) or die ...

UPDATE news_articles 
SET article_title = ? 
WHERE $article_id = ?