#!/usr/bin/perl5
$wait = 0;
$input = "typescript";
open(IN,"<$input");
$|=1;
while(! eof(IN)) {
   print getc IN;
   select(undef, undef, undef, $wait);
}
