#!/usr/bin/perl

use IPC::Open3;
use POSIX qw( :sys_wait_h );

my $pid;
my $cmd = "extern.pl";
my $cmd2 = "extern2.pl";
my $exit_code = 0;
my $exit_code2 = 0;
my $help = 0;
my $help2 = 0;

$pid = open3(*MMRET_IN, *MMRET_OUT, *MMRET_ERR, $cmd);
print "Process spawned with PID = $pid \n";
$help = waitpid($pid,WNOHANG);
print "HELP_VALUE is $help\n";
$exit_code = $? >> 8;
print "ExitCODE is $exit_code \n";

$pid2 = open3(*MMRET_IN2, *MMRET_OUT2, *MMRET_ERR2, $cmd2);
print "Process spawned with PID = $pid2 \n";
$help2 = waitpid($pid2,WNOHANG);
print "HELP_VALUE is $help2\n";
$exit_code2 = $? >> 8;
print "ExitCODE is $exit_code2 \n";