Woothee perl implementation