sub cmd_pipe {
  my $cmd = shift;

  open CMD, "$cmd | " or die "Cannot exec $cmd, $!";
  my @data = <CMD>;
  my $result = close(CMD);

  return($result, @data);
}