sub do_pipe_command
{
    print 'Running: ', join(' ', @_[1..$#_]), $/;
    my @cmd = @_[1..$#_];

    my $wtr;
    require IPC::Open3;
    my $pid = IPC::Open3::open3($wtr, $_[0], undef, @cmd);
}