added perl examples