perl samples