# run command through a pipe
open(WEBOS,"$com|") or warn("cant open pipe to command: $!");
$com = join('', <WEBOS>);
close(WEBOS) or warn("cant close pipe to command: $! $?");