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

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

package Foo;
sub new {
    bless {}, shift;
}

package main;
my $objName = "Foo";
my $obj = $objName->new();
my $obj1 = new $objName();

##</code><code>##

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