main.pl: #!/usr/bin/perl use strict; $|++; my $pipetest = undef; open (my $fh, "/home/s0nyc/tama/tamawork.pl |") or die "ups... $!"; while(<$fh>){ if ($_ == 10){ chomp; if ($pipetest eq ''){ $pipetest = "Keine Eingabe"; } print "JA $pipetest $_"; } } tamawork.pl: #!/usr/bin/perl use strict; use warnings; $|++; my $zaehler = 1; while (1){ $zaehler ++; print "$zaehler\n"; sleep 1; if ($zaehler == 25){ print "Endeee\n"; exit; } }