perl中的条件使用

我一直在为如何在运行时而不是编译时使用模块而苦苦挣扎（我以前甚至写过一次）。我终于明白了：

my $module = "ROX::Filer";
eval "use $module";
die "couldn't load module : $!n" if ($@);

现在我只需要弄清楚如何从动态模块名称创建对象……！

更新：从动态名称创建对象就像在运行时动态加载模块一样简单：

my $obj = $module->new();