open(A,"xx.pl $value|"); while(){ $results .= $_;}