until($cnt == "100"){
print "COUNT IS $cnt\n";
sleep 5;
$cnt++;
}

##</code><code>##

open SYS, "c:\\temp\\junk.exe |" or die "$!";
$oldfh=select(SYS);
$| = 1;
select($oldfh);
$| = 1;
while (<SYS>) {
print
}
close SYS;