perl examples