#!/usr/bin/perl

select(STDOUT); $|++;

for ($i=0;$i<100; $i++)
{
print "Started application - $i\n";
}
open (FH, ">> /tmp/xyz.log");
select(FH);$|++;
while (<>)
{
   print FH $_;

   if (/^ping/)
   {
      print "PING BACK\n";
   }
}