main:

our %ssh (hash of active ssh sessions, Net::OpenSSH)
read file with list of vm's to turn off.
for each line with 1 or more vm's
    start thread1

kill_all_thread1 after timeout

for each line with 1 or more vm's
    start thread2


thread1:
@vms = split (',',$0)
for each vm
    gather all info needed
    if (! exists $ssh{vm-manager}
     { $ssh{vm-manager} = Net::OpenSSH->new(vm-manager) 

       (stdout,stderr)=$ssh{vm-manager}->capture2(request vm to stop)
       *check errors*

       (status,stderr)=$ssh{vm-manager}->capture2(request status vm)
       while (status != dead)
           { (status,stderr)=$ssh{vm-manager}->capture2(request status vm)
             sleep some time }


thread2:
@vms = split (',',$0)
for each vm
    gather all info needed
    if (! exists $ssh{vm-manager}
     { $ssh{vm-manager} = Net::OpenSSH->new(vm-manager) 

       (stdout,stderr)=$ssh{vm-manager}->capture2(pull plug vm)

##</code><code>##

$_->join for @jobs;