package ChildClass; use ParentClass; our @ISA = qw[ChildClass]; sub risky_method1 {die "You're not allowed to call this"} sub risky_method2 {die "You're not allowed to call this either"}