Select Code to Download

package A;

...
sub new {
 ...
}

package B;

...

use base qw(A);
use fields qw(addr phone city);

package C;

...

use base qw(A);
use fields qw(model type);

use C;