[SP-pm] DBI - Tempo de execução de uma query

[Rudolfo Rosa]

Caros,
         quando executo uma query no mysql ele retorna o valor do
tempo de execução, por exemplo:
mysql> select count(*) from Table;
+----------+
| count(*) |
+----------+
|    22524 |
+----------+
1 row in set (0.01 sec) <--

Como eu faço pra obter este valor ??

Estou utilizando o código abaixo:

my $dbh = DBI->connect( $dsn, $user, $pass,{ AutoCommit => 1,
RaiseError => 0, PrintError => 0 } ) or &error($DBI::errstr);
my $query = "select count(*) from Table;
my $sth = $dbh->prepare( "$query" ) or &error($dbh->errstr);
$sth->execute or &error($dbh->errstr);

my $result = "0";
while ( my $row = $sth->fetchrow_array( ) ) {
        $result = $row;
}

$dbh->disconnect or &error($DBI::errstr);
print "result = $result\n";
exit;

Obrigado, Rudolfo Rosa.