in reply to Perl Win32::API

substr $cc, 0, $var; like the docs show