This is a sample of Acme::MorningMusume

musume.pl

use strict;
use warnings;
use utf8;
use FindBin::libs;

use Acme::MorningMusume;

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

my @active_members = $musume->members('active');

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