my ($read, $write, $error); 
my $pid = open3( $write, $read, $error, "$em_command &") || die ERROR." : Unable to execute ";

write_log (DEBUG, "Maintenance Proxy pid = $pid");

# exception occured
if ($pid =~ /^open3:/) {
    write_log (ERROR, $pid);  
    exit 1; 
}

my $sel = IO::Select->new();
$sel->add($read);
dumpValue ($sel);
print "---\n";
$sel->add($error);
dumpValue ($sel);
print "---\n";

my ($rh, $inStr);
while(my @ready = $sel->can_read)
{

    foreach my $handle (@ready) {
        
         if ($handle == $error)
         {
            my $numBytesRead = sysread($rh,  $inStr, 1024);
            print "ERROR: $inStr";
         }
         else
         {
            my $numBytesRead = sysread($rh,  $inStr, 1024);
            print "INFO: $inStr";
         }
         $sel->remove($handle) if eof($handle);

     }
 }