#XXXXXXXXXXXXXXXXX Code von A.pl XXXXXXXXXXXXXXXXX
use Time::HiRes qw(sleep);
$out = 1;
while(1==1)
{ 
   sleep 0.01;

   #### schreib nach stdout
   print "\n$out";
   $out++;

   #### fang wieder bei 0 an
   if($out > 50){$out = 1;}
}

#XXXXXXXXXXXXXXXXX Code von B.pl XXXXXXXXXXXXXXXXX
open(FH, "c:\\ccc.pl |") or die "Open-Fehler...\n";
while($tmp=<FH>)
{
	chomp($tmp);
	
	#### Output nach bestimmten Wert fragen
  	if($tmp eq 25){print "\nTreffer";}

	print "\n$tmp";
}
close (FH);