while (<>) {
    select(undef, undef, undef, 0.25);
    print;
}

##</code><code>##

use Time::HiRes qw(sleep);
while (<>) {
    sleep(0.25);
    print;
}