some perl examples