use Time::HiRes qw( gettimeofday tv_interval );

$t0 = [gettimeofday];

sleep 2; # anstatt sleep die DB-Abfrage durchführen

$elapsed = tv_interval ($t0);