select undef, undef, undef, .15;  # or use Time::HiRes