{package one;....}
{package two; @ISA = qw(one); use base qw(one);...}
{package three; @ISA = qw(two); use base qw(two);...}
{package four; @ISA = qw(three); use base qw(three);...}