use strict;
use warnings;
use Encode qw( is_utf8 );
use Win32::OLE ();
Win32::OLE->Option ( CP => Win32::OLE::CP_UTF8 );

binmode( STDOUT, ':raw' );
my $filename = shift or die "No file specified\n";
my $dmcconverter = Win32::OLE->new('dMCScripting.Converter') 
	or die "Can't create dMCScripting.Converter object: $!\n";
my $data = $dmcconverter->AudioProperties($filename);
printf( STDERR "The UTF-8 flag for converter output is %d\n", is_utf8($data) // 0 );
print "$data";


d:\Mp3\Encode>perl -S test-ole-out.pl D:\Mp3\Encode\test1.mp3 >test1.txt
The UTF-8 flag for converter output is 0

d:\Mp3\Encode>perl -S test-ole-out.pl D:\Mp3\Encode\test2.mp3 >test2.txt
The UTF-8 flag for converter output is 1
Wide character in print at D:\Batch/test-ole-out.pl line 15.