package UNIVERSAL;

use strict;
sub new {
    my( $pkg )= @_;
    eval "require $pkg; 1"
        or  die "$@";
    my $meth= $pkg->can( "new" );
    die "Package $pkg defines no new() method"
        if  $meth == \&UNIVERSAL::new;
    goto &$meth;
}

1;