#!/usr/bin/perl -w -I../lib
# Display the upcoming birthdays

use WWW::Myspace;

$myspace = new WWW::Myspace;

print "Getting birthdays...\n";
my %bd = $myspace->get_birthdays( );

foreach $friend ( keys( %bd ) ) {
    print $friend.": ".$bd{"$friend"}."\n";
}