package UNIVERSAL;

sub new {
    my $pkg= shift @_;
    eval "require $pkg; 1"
        or  die "$@";
    return $pkg->new( @_ );
}

1;