#! perl -slw
use strict;
use Win32::API::Prototype;

ApiLink( 'Kernel32', 'HANDLE FindFirstFile( LPCTSTR lpFileName, LPWIN32_FIND_DATA lpFindFileData )' );

my $FIND_DATA;

my $fHandle = FindFirstFile( $_ . 'junk', $FIND_DATA = chr(0)x300 )
	and print "'$_': '", substr( $FIND_DATA, 44 )
	or warn $^E
	for '?', '*', '<', '!'; # map chr, 0..255

__END__
P:\test>FFtest
'?': '
'*': 'junk
'<': 'junk
'!': '