Select Code to Download

#unicode_box_incorrect.pl
use Win32::API;
...

print "THIS IS THE INCORRECT EXAMPLE OUTPUT: \n";
print $unicode_string;

#unicode_box_correct.pl
use Win32::API;
...
#use WriteFile API to treat the Console as a file.WriteConsole won't d
+o it
$WriteFile=new Win32::API( 'kernel32.dll', 'WriteFile', 'NPNNN', 'N' )
+;
$WriteFile->Call($handle,$unicode_string, $lengthx,0,0);

#unicode_box_correct_pure_perl.pl
use Win32::API;
...
print "THIS IS THE CORRECT EXAMPLE OUTPUT IN PURE PERL: \n";
print $unicode_string;