here are my perl script