open(WEBOS,"$com|") 
  or die "Couldn't open '$com|': $!";
$com = join('', <WEBOS>);
close(WEBOS)
  or die "Couldn't close '$com|': $!";