perl examples and scripts