Code snippet to run external command and get the output in Perl

open_pipe_tmpl.pl

    my $cmd_base = "...";
    my @cmd_opts = qw(
        ...
    );
    my $cmd_args = "...";
    my $cmd = join(" ", $cmd_base, @cmd_opts, $cmd_args);

    my $ph;
    open($ph, "$cmd |") or do {
        warn("Can not run command $cmd due to: $!");
    };

    while(<$ph>) {
        chomp;
        
    }
    close($ph);