use strict;
use warnings;
$Win32::OLE::CP = CP_UTF8;

##</code><code>##

Bareword "CP_UTF8" not allowed while "strict subs" in use at test.pl line 3.
Execution of test.pl aborted due to compilation errors.