Add perl sub rootin by perl