#!/usr/bin/perl -w;
use strict;
use TestPackage;

my $p = TestPackage->new ( username => 'zzspectrez',
                           password => 'perlkicksbutt' ) ||
                     die "Couldn't create object.\n";

print "Identities: ", join (' ', $p->Identities), "\n";

#my %buddys = $p->BuddyList;
my $buddys = $p->{'buddy_list'};

foreach my $key (keys %$buddys){
  print "GROUP: $key\n";
  print "NAMES: ", join (' ', @{$$buddys{$key}}), "\n";
}