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