my $XENDOMID = qq(xl list| DOM_ID=`fgrep $vm_run` | awk '{print $2}'` && VNCPORT=`ps x \
| fgrep -m 1 "domid $DOM_ID" | awk '{print $1}'` && sockstat -4l | fgrep $VNCPORT | awk '{print $6}');