Add perl dial examples