Class::Accessor

package Class;
use base qw( Class::Accessor::Fast );
__PACKAGE__->mk_accessors( qw(X Y) );

# オブジェクトを作成して返す

sub new{
my $class = shift;
my $self = {
X => 10,
Y => 100,
};

return bless $self, $class;
}
------------------
use Class;

my $obj = new Class;
$aa = $obj->X;#引数をゲット
print $aa;
print "\n";
$obj->X(200);#引数をセット
print $obj->X;
-----------
10
200