#!/usr/bin/perl

$|=1;
while(<>){
	print;
	select(undef, undef, undef, .01);
}