Add two perl samples.