eval "require $parent_class"; die "$@\t...$parent_class barfed" if $@;
eval "require $child_class"; die "$@\t...$child_class barfed" if @;

##</code><code>##

use Some::Module qw(foo);