office perl stuff