removed some perl cruft