open my $fh, '-|' or die;