# Circle のパッケージ名を設定
package Circle;

# Circle のクラスメソッド（コンストラクタ）
sub new{
    # 暗黙のうちに引き渡されるパッケージ名を受け取る
    my $class = shift;

    # 任意の引数を受け取る
    my( $x, $y ) =@_;

    # 第1引数に連想配列のリファレンスを指定、
    # 第2引数にパッケージ名を指定
    bless { pos=>[$x, $y] }, $class;
}

# Circleのインスタンスメソッド
sub position{
    my $self = shift;
    if ( @_ ){
        $self->{pos}[0] = @_[0];
        $self->{pos}[1] = @_[1];
    }
    return @{ $self->{pos} };
}

package main;

my $circle = new Circle

ﾎﾚ