#!/usr/bin/perl

use strict;
use Frontier::Client;
use RHNSession;

my ($client, $session) = RHNSession::Session;

my $channels = $client->call('channel.listSoftwareChannels', $session);

foreach my $channel (@$channels) {
  print $channel->{'label'} . "\n";
}

$client->call('auth.logout', $session);