These are some perl programs