sub ExecCmd
{
   my $cmd = shift;
   my $pid = open3(\*WRITE,\*READ,\*ERROR,$cmd);
   unless (defined $pid) {
      LogError("Failed to execute $cmd");
      return undef;
   }
   LogInfo("PID is $pid");
   my $select = new IO::Select();
   $select->add(\*READ);
   $select->add(\*ERROR);

   foreach my $handle ($select->can_read) {
      LogInfo("handle is $handle");
      my $buf = "";
      if($handle eq \*ERROR) {
         sysread(ERROR,$buf,BUFFER);
         close ERROR;
         if($buf) {
            LogInfo("ERROR -> $buf");
         }
      } else {
         sysread(READ,$buf,BUFFER);
         close READ;
         if($buf) {
            LogInfo("READ -> $buf");
         }
      }
   }
   print WRITE "0\n";