package First;
my ($attr1, @attr2, ...);
sub get_attr1 { $attr1 }
sub set_attr1 { my $class = shift; $attr = shift }
sub get_attr2 { @attr2 }
sub set_attr2 { my $class = shift; @attr2 = @_ }