perl -w

package A;
use Class::MethodMaker
  [ scalar => [{ -static => 1 }, 'knob1'],
    new => 'new'];

package B;
@ISA=('A');
$a=new A;
$a->knob1(5);
$b=new B;
print $b->knob1;
__END__
5