first perl samples