http://www.perlmonks.org?node_id=53110

package One; @ISA = qw(Two); package Two; @ISA = qw(One); use Carp; croak "Let me out!";