gistfile1.txt

use strict; use warnings;

package Point {

  sub new {
    bless {
      x => 0,
      y => 0,
      @_,
    }, shift;
  }
  
  sub x { shift->{x} }
  sub y { shift->{y} }
}