Select Code to Download

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

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