Translating some more tests to perl