sub io_read {
    local $SIG{__WARN__} = sub { }; # Silence warning.
    open my $pipe, '|-', @_ or die "Cannot exec $_[0]: $!\n";
    return $pipe;
}

##</code><code>##

sub io_read {
    IO::Pipe-&gt;reader(@_);
}