Select Code to Download

<?xml version='1.0'?>
<job_info ... ?revision=1.11">
...
    </Queue-List>
  </queue_info>
</job_info>

use XML::Smart;
my ($xml,$qstat);
...
  {
     print $_->{job_list}->{slots};
  }