use My::AAA;
use My::BBB;
use My::CCC;

my $module    = 'My::' . $name_str;
eval { $obj = $module->new(); };
if ($@) {
    print "Error loading module $module: $@\n";
    exit;
}
$obj->login();