use IO::Handle; 
$| = 1; 

$data1 = "./myC.exe  10 10 1 abc"; 

open PS, "$data1 |"; 
PS->autoflush(1);
while ($line = readline(*PS))  
   {  
        print $line; 
        print "\n";  
    } 

##</code><code>##

use IO::Handle; 
$| = 1; 

$data1 = "./myC.exe  10 10 1 abc"; 

open PS, "$data1 |"; 
PS->autoflush(1); 
while (<PS>)  
    {  
        print; 
        print "\n"; 
    }