sub new {
    my $self  = shift;

    # Foo->new('bar',@_) => Foo::Bar->new(@_)

    my $class = __PACKAGE__ . "::" . ucfirst(shift);

    eval "require $class;"; # Note: "" *NOT* {} !

    if ( $@ ) {      # whoops, there was an error
        warn( $@ );  # require'ing $class; perhaps
        return;      # it doesn't exist?
    }

    return $class->new( @_ );
}