updated perl tests to remove an out-of-date function