Perl inheritance
my $class = 'My::Package';

my $file = $class;   # Or:
$file =~ s{::}{/}g;  #   eval "require $class;" or die $@;
$file .= '.pm';      #
require $file;       #

if ($class->isa('My::Package::Parent')) {
   ...
}