ignoring perl script test file
remove strange function