Dentoo.LT http://blog.catatsuy.org/a/256

msume_dentoo.pl

use strict;
use warnings;
use utf8;

use Acme::MorningMusume;

my $musume = Acme::MorningMusume->new;

my @active_members = $musume->members('active');
my @sorted_by_birthday = $musume->sort('birthday', 0, @active_members);

print $_->family_name_ja . $_->first_name_ja . "\n" for @sorted_by_birthday;