sub AUTOLOAD
{
    my $f = $AUTOLOAD;
    if( $f =~ /^(My(::[a-zA-Z0-9_]+)*)(::|->)([a-zA-Z0-9_]+)$/ )
    {
        my $pkg = $1;
        eval "require $pkg;";
    }
    if( $f =~ /^NEW::(.*)$/ )
    {
        my $func = $1;
        unshift( @INC, "/newpkgs" );
        return &{$func}(@_);
    }
    else
    {
        goto \&{$f};
        return;
    }
}