to make the callstack using perl script modify