use Time::HiRes qw/gettimeofday tv_interval/;
...
...
...

$start_time = [gettimeofday];
$dbh->do("UPDATE ARTIKEL SET COUNT = COUNT +1 where REC_ID = '$rec_id'");
$elapsed_time  = tv_interval ($start_time);
...
...