my $pid=open my $pipe,'-|';
defined($pid) or die ...