Add perl tool function