Update perl_func.pm