open(WEBOS,"$com|");
  $com = join('', <WEBOS>);
  close(WEBOS);

##</code><code>##

  open(WEBOS,"$com|") or die "Cannot run $cmd :  $!" ;
  $com = join('', <WEBOS>);
  close(WEBOS) or die "$cmd closed with bad status: $! $?";