working on perl