a test that i can't work out how to do cross-platform and with older perls