use base qw(ParentClass);

use fields qw(field1, ... );