Select Code to Download

my $objName = "foo";
my $testObj = new $objName();

#!/usr/bin/perl
use strict;
...
my $objName = "Foo";
my $obj = $objName->new();
my $obj1 = new $objName();

my $moduleName = "Foo";
eval "use $moduleName";
if ($@) { # could be problems with the loading of the module Foo
....
}