use Win32::Unicode;
my $wdir = Win32::Unicode::Dir->new;
$wdir->open(@ARGV);
my ( undef, undef, $file ) = $wdir->fetch;
print join "\n", "length: " . length( $file ) . ", code points:", map ord, split //, $file;