testing related for perl script working