Bugfix, $3 -> $SCOPE in perl script