Select Code to Download

#!/usr/local/bin/perl
...
        $rec_args{$arg}->();
}

sub get_dom_id {
       my $XENDOMID = "xl list| DOM_ID=`fgrep $vm_run` | awk '{print $
+2}'` && VNCPORT=`ps x \ 
...
       print `$DOMID`;
}