package Top;

sub new {
    my ($class, %options) = @_;
    my $impl= "Top::$options{ base }";
    $impl->new( %options );
};