for (@{$systems}) {
   my $systemid = $_->{'id'};
   ## package test
   my $packages = $client->call('system.list_packages', $session, $systemid);
   for my $package (@$packages) {
## the next line limits to the exact rpm you wish or else you get everything
      next unless $package->{'name'} ~~ /redhat-release/;
      my $systemname=$_->{'name'} . " ";
      chomp $systemname;
      print $systemname . " " ;
      print $package->{'name'} . " ";
      print $package->{'release'};
  print "\n";
   }
}