select(undef, undef, undef, 0.25);

##</code><code>##

use Time::HiRes qw(sleep);
sleep(0.25);