use strict;
use warnings;

use Encode         qw( encode );
use File::stat     qw( stat );
use Symbol         qw( gensym );
use Win32API::File qw( CreateFileW
                       OsFHandleOpen
                       GENERIC_READ
                       FILE_SHARE_READ
                       OPEN_EXISTING
                     );


{
   # The file name consists of a black heart (U+2665).
   my $fn = encode('UCS-2le', "\x{2665}");

   my $handle = CreateFileW(
      $fn,
      GENERIC_READ,
      FILE_SHARE_READ,
      [],
      OPEN_EXISTING,
      0,
      []
   )
      or die("CreateFile: $^E\n");

   my $fh = gensym();
   OsFHandleOpen($fh, $handle, "r")
      or die("OsFHandleOpen: $!\n");

   my $stat = stat($fh);
   print("atime: ", scalar(localtime($stat->atime())), "\n");
   print("mtime: ", scalar(localtime($stat->mtime())), "\n");
   print("ctime: ", scalar(localtime($stat->ctime())), "\n");
}