Bugfix of perl script