The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# -*- Perl -*-

use IBM::LoadLeveler;

$query = ll_query(MACHINES);
print "ARGS = @ARGV\n";
$return=ll_set_request($query,QUERY_HOST,\@ARGV,ALL_DATA);
if ($return != 0 )
{
    print STDERR "ll_set_request failed Return = $return\n";
}

$machine=ll_get_objs($query,LL_CM,NULL,$number,$err);
$tmp=ll_get_data($machine,LL_MachineName);
print "MACHINE = $tmp\n";
$lav=ll_get_data($machine,LL_MachineLoadAverage);
print "LOAD AVERAGE = $lav\n";
@msl=ll_get_data($machine,LL_MachineStepList);

foreach $step ( @msl )
{
    print "STEPS = $step\n";
}