use strict ;
use warnings ;
use DateTime ;
use Win32::UTCFileTime qw(alt_stat $ErrStr) ;
my $file = ".\\testFileTime2.pl" ;
my @stats = alt_stat( $file ) or die "alt_stat() failed: $ErrStr\n" ;
print "ctime = $stats[10]\n" ;
my $dt = DateTime->from_epoch( epoch => $stats[10], time_zone => 'UTC' ) ;
print $dt->datetime . "\n" ;
__END__
ctime = 1530825924
2018-07-05T21:25:24