some perl stuff