Class::Accessor て面白いな。よーし、パパPerlでOOPしちゃうぞ〜。