open(A, "xx.pl $value|") or print STDERR "oops: $!\n";