some perl junk