Fix changes with calling

Fix changes with calling external perl script.