Select Code to Download

package My::Class;

...
use base qw( Class::Accessor );

My::Class->mk_accessors( qw( field1 field2 field3 ) );