package A;

  sub new {
      my $pkg = shift;
      bless {}, $pkg;
  }

  sub do_something {
      my $self = shift;

      my $n = $self->x() + $self->y();
      print "something is $n\n";
  }

  sub x { die "subclass must override x\n" }
  sub y { die "subclass must override y\n" }

  package B;

  @ISA = (A);

  sub x { 42 }
  sub y { 47 }

  package main;

  my $object = new B();
  $object->do_something;
  # A::do_something invokes B::x and B::y