dont switch windows when running perl script