use strict;
use warnings;

use Encode               qw( encode );
use Win32API::File::Time qw( GetFileTime );

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

   local ${^WIDE_SYSTEM_CALLS} = 1;
   my ($atime, $mtime, $ctime) = GetFileTime($fn)
      or die("GetFileTime: $^E\n");

   print("atime: ", scalar(localtime($atime)), "\n");
   print("mtime: ", scalar(localtime($mtime)), "\n");
   print("ctime: ", scalar(localtime($ctime)), "\n");
}

##</code><code>##

atime: Fri Feb  6 00:44:39 2009
mtime: Fri Feb  6 00:44:39 2009
ctime: Fri Feb  6 00:44:39 2009