run command from perl

Hi,
I want to run a shell command with the following constraints:

a. I like to get the return code of the command
b. Furthermore I want to combine stdout and stderr so that the output
comes in a natural sequence like in the shell.
c. I don't want to capture the output in a variable (because the output
could be really large and I don't want to wait for the first line of
output)

I did this:

use IPC::Open3;

sub run_cmd {
  my $cmd = shift @_;

  my $pid = open3(undef, *CMD_OUT, *CMD_OUT,$cmd);

  while ( <CMD_OUT>) { print "$_"; }
  waitpid($pid,0);
  my $rc = $? >>8;
  return $rc;
}


I tested the code and it I can say it worked fine under fair
weather conditions. 

Question: Is the code ok, or could it be improved, or has it even flaws?



-- 
Thanks,
Manfred

• run command from perl by Manfred Lotz
• Re: run command from perl by Peter Scott
• Re: run command from perl by Shlomi Fish
• Re: run command from perl by John W. Krahn
• Re: run command from perl by Manfred Lotz
• Re: run command from perl by Peter Scott
• Re: run command from perl by Manfred Lotz