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