Select Code to Download

open (IN,"./myexecutab |") ;
@catured = <IN> ;

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