test for perl tool