for (my $time = Time::HiRes::time(); Time::HiRes::time()-$time < 100.0/1000.0;){}# 100ms warten