#!/usr/local/bin/perl

use DBI;

print "Content-type:text/html\n\n";

my $dbh = DBI->connect('DBI:mysql:database=perl;host=localhost', 'test', 'test');

my $result = $dbh->prepare("SELECT * FROM news");

$result->execute();

while (my $ln = $result->fetchrow_hashref()) {
   print $ln->{'id'};
    print ' - ';
   print $ln->{'title'};
    print ' - ';
   print $ln->{'text'};
   $txt=$dbh->quote($ln->{'title'}.'YEAH ');
}

$result=$dbh->prepare("UPDATE news SET title=? WHERE id=1");
$result=$dbh->bind_param(1, $txt);
#$dbh->bind_param(2, $ln->{'id'});
$result->execute();

$result->finish();
$dbh->disconnect();   # Разрыв соединения с сервером.