my $mod = 'My::Long::Module::Name';

{ # test 1
    my $obj = $mod->new;
}
{ # test 2
    my $obj = $mod->new;
}

# etc