call perl builtin function by another way