Update test for perl