dev on perl script