sub new_class {
    my $class = shift;
    (my $module = $class) =~ s!::!/!g;
    require "$module.pm";
    $class->new( @_ );
}

my $red = new_class('redObjects', color => 'red');
my $green = new_class('greenObjects', color => 'green');