I don't know you've already known about that, but there is Class::Accessor which will do exactly what you want. check it out on CPAN, and Schwern's article about it here.

--
Tatsuhiko Miyagawa
miyagawa@cpan.org