init perl "" -10