use Time::HiRes 'time';
$time1 = time;
sleep 2;
$time2 = time;
printf "Time difference = %.2f seconds\n", $time2-$time1;