[CentOS] perl script part eval help please?