dbi->func('mysqlfunc',-1,'my_perl_func','create_function');