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