Por último, mas não menos importante, vou demonstrar como se pega o número de Affected Rows (campos afetados), algumas consultas como Update e Delete, só retornam o número de valores afetados.

Podemos pegar esse numero de duas maneias, a primeira, é usando a função "rows":

my $cmd = 'update tutorial set mensagem="abcd" where id=1;';
my $query = $con->prepare($cmd);
$query->;execute();

   print "Numeros de linhas afetadas: ".$query->rows."\n";

A segunda é executando a query usando a função "do", ao invés de prepare, e depois execute. A função " do" já executa automaticamente as três etapas vistas anteriormente (prepare, execute e rows) e retorna o número de linhas afetadas pela consulta, exemplo:

my $rows = $con->do('update tutorial set mensagem="abcd" where id=1;');

   print "Numeros de linhas afetadas: $rows\n";

The end

Acho que o tutorial ficou bem completo, por isso, paro de escrever aqui.

Vou deixar os links que eu usei pra aprender.
Espero que tenham lido.

my @referencias = qw(:

• DBI - Database independent interface for Perl - metacpan.org
• Perl Tutorial - DBI Query
• DBI: get the number of rows affected by a SQL statement « Perl HowTo

);