#! perl -slw
use strict;
use Win32API::File qw[ FdGetOsFHandle ];
use Win32::API::Prototype;

ApiLink( 
	'kernel32',
	'BOOL FileTimeToSystemTime(
		LPFILETIME lpFileTime,
		LPSYSTEMTIME lpSystemTime
	)'
) or die $^E;

ApiLink(
	'kernel32',
	'BOOL GetFileTime(
		HANDLE hFile,
		LPFILETIME lpCreationTime,
		LPFILETIME lpLastAccessTime,
		LPFILETIME lpLastWriteTime
	)'
) or die $^E;

## Get an OSfilehandle for the curent script
my $osfh = FdGetOsFHandle( fileno( DATA ) ) or die $!;

## 3 x quadword buffers for the FILETIME structs
my( $ctime, $atime, $wtime ) = ( chr(0) x 8 ) x 3;

## Get them
GetFileTime( $osfh, $ctime, $atime, $wtime ) or die $^E;

## 8 word buffer for the SYSTEMTIME struct
my $systime = chr( 0 ) x 16;

for( $ctime, $atime, $wtime ) {
	
	##Convert the FILETIMEs to SYTEMTIMEs
	FileTimeToSystemTime( $_, $systime ) or die $^E;
	
	printf "Year: %4d Month: %2d DOW: %1d Day: %2d Hour: %2d Minutes: %2d Seconds: %2d Milliseconds: %3d\n",
		unpack 'v8', $systime;
}

__DATA__
P:\test>368002
Year: 2004 Month:  6 DOW: 5 Day: 18 Hour: 17 Minutes: 47 Seconds:  5 Milliseconds: 283
Year: 2004 Month:  6 DOW: 5 Day: 18 Hour: 18 Minutes:  7 Seconds: 38 Milliseconds: 689
Year: 2004 Month:  6 DOW: 5 Day: 18 Hour: 18 Minutes:  7 Seconds: 37 Milliseconds:   1