use Time::HiRes qw{usleep};

##</code><code>##

select(undef, undef, undef, 0.25);

##</code><code>##

usleep 250000;