## use XML::Smart; my ($xml,$qstat); $qstat=`qstat -u \* -ext -xml -s r -F`; $xml = XML::Smart->new($qstat); foreach ($xml->{job_info}->{queue_info}->{"Queue-List"}('@') ) { print $_->{job_list}->{slots}; }