use Time::HiRes qw(time);
my $until = time + 0.00_001;
1 while time < $until;