Add perl registry-fixing script from trac