open (IN,"./myexecutab |") ; select STDOUT ; $| = 1 ; while() { print "." ; ..... }