Adding some perl examples