use Time::HiRes qw( usleep );

for (;;) {
   usleep(250000);
}